Question

Delphi 不让焦点离开TEdit

比如我在edit1 中输入，输入的内容不符合规则，然后按tab键和点击鼠标，都不要让焦点离开，有可以办到的么

Answer 1

在edit1的onExit事件中进行规则验证，不符合规则就执行edit1.SetFocus,焦点就不会离开了。
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if trim(self.Edit1.Text) = '' then
begin
self.Edit1.SetFocus;
end;
end;

Answer 2

按键不让离开是可以做到的，检查按键事件，点击鼠标不让离开，那就要隐藏鼠标了！