0
点赞
收藏
分享

微信扫一扫

(11)lazarus带历史记忆,并模糊带出功能的Edit

后来的六六 2024-02-04 阅读 8

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  if ( key=40 ) and (listbox2.Items.Count>0) and listbox2.Visible  then begin    //defines.icn  VK_DOWN = 40;
   ListBox2.SetFocus;
   ListBox2.ItemIndex:=0;
  end;
end;

其他参考:

带历史记忆,并模糊带出功能的Edit

 

链接:https://pan.baidu.com/s/1fpuJ13Nwrx4f1AGQic8lPQ
提取码:0xxu

举报

相关推荐

0 条评论