OnEnterMouse Delphi用于执行程序

Question

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

Answer 1

您可以使用enter和exit事件：

过程TForm1.Edit1Exit（Sender：TObject）; 开始    myProcedureRun1; 结束;

过程TForm1.Edit1Enter（Sender：TObject）; 开始    myProcedureRun2; 结束;