鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 编程语言开发 > delphi > >

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

来源:互联网 作者:佚名 时间:2017-09-08 09:52
在 Firemonkey 的 TForm 并没有提供 OnMouseLeave 的事件,不过可以透过 OnMouseMove 来达到相同效果,请见代码: uses FMX.Consts; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single); begin if (Shift = []) and (X = F

在 Firemonkey 的 TForm 并没有提供 OnMouseLeave 的事件,不过可以透过 OnMouseMove 来达到相同效果,请见代码:

uses  FMX.Consts;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
begin
  if (Shift = []) and (X = FormUseDefaultPosition) and (Y = FormUseDefaultPosition) then
  begin
    // ...当鼠标移开 Form,做点什么...
  end;
end;

 

网友评论
<