[范例] Firemonkey TForm 实现 OnMouseLeave 事件 (適用 Win &am
发布时间：2020-12-15 04:37:36 所属栏目：大数据 来源：网络整理
导读：在 Firemonkey 的 TForm 并没有提供 OnMouseLeave 的事件，不过可以透过 OnMouseMove 来达到相同效果，请见代码： span style="color: #0000ff;"procedure span style="color: #000000;" TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Si
|
在 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; （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |