[范例] Firemonkey TForm 实现 OnMouseLeave 事件 (適用 Win & OS X)

在 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;