在控件的OnExit中如何控制使其不失去焦点.(100分)

  • 主题发起人 主题发起人 jason_fox
  • 开始时间 开始时间
都已经离开了为什么还不交出焦点呢
 
procedure TForm1.Edit1Exit(Sender: TObject);
begin
Edit1.Setfocus;
end;
 
是这样的.在控件(edit1)失去焦点时,如果未输入内容(或者不合适)
则显示另一控件(如listbox1),另外listbox在下一控件(edit2)获取焦点时隐藏.
因此必须不使edit1失去焦点.如果利用edit1.setfocus则此控件在失去焦点时显示,
然后又隐藏,无法解决此问题.
另外:上述功能我已通过其他途径解决,就是判断enter,tab按键.我想能否通过windows的
消息实现.望各位大虾赐教.Thanks.
 
截获 WM_KILLFOCUS 消息是一样的。
 
jason_fox:如果还想接着讨论请定期提前自己的帖子,如果不想继续讨论请结束帖子。
 
WM_KILLFOCUS 消息
 
(Sender as TControl).SetFocus
 
多人接受答案了。
 
后退
顶部