OnEnterMouse Delphi用于执行程序

时间:2018-06-19 14:00:21

标签: delphi mouse delphi-10.1-berlin

我想知道一种方法来验证是否通过鼠标激活了组件的焦点,如果可以,则可以在Delphi中执行某个过程。

1 个答案:

答案 0 :(得分:0)

您可以使用enter和exit事件:

过程TForm1.Edit1Exit(Sender:TObject); 开始    myProcedureRun1; 结束;

过程TForm1.Edit1Enter(Sender:TObject); 开始    myProcedureRun2; 结束;