在 Firemonkey 的 TForm 并没有提供 OnMouseLeave 的事件，不过可以透过 OnMouseMove 来达到相同效果，请见代码：
<span style="color: #0000ff;">procedure<span style="color: #000000;"> TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Single);
<span style="color: #0000ff;">begin
<span style="color: #0000ff;">if (Shift = []) <span style="color: #0000ff;">and (X = FormUseDefaultPosition) <span style="color: #0000ff;">and (Y = FormUseDefaultPosition) <span style="color: #0000ff;">then
<span style="color: #0000ff;">begin
<span style="color: #008000;">//<span style="color: #008000;"> ...当鼠标移开 Form，做点什么...
<span style="color: #0000ff;">end<span style="color: #000000;">;
<span style="color: #0000ff;">end;
<span style="color: #0000ff;">begin
<span style="color: #0000ff;">if (Shift = []) <span style="color: #0000ff;">and (X = FormUseDefaultPosition) <span style="color: #0000ff;">and (Y = FormUseDefaultPosition) <span style="color: #0000ff;">then
<span style="color: #0000ff;">begin
<span style="color: #008000;">//<span style="color: #008000;"> ...当鼠标移开 Form，做点什么...
<span style="color: #0000ff;">end<span style="color: #000000;">;
<span style="color: #0000ff;">end;
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
