DelphiXE8FMX工程实现无边框托动(发送消息)

最新推荐文章于 2020-12-24 18:39:52 发布

weixin_33716154

最新推荐文章于 2020-12-24 18:39:52 发布

阅读量530

点赞数

文章标签：移动开发

本文介绍如何使用FireMonkey(FMX)进行窗体的无边框设计，并通过发送系统消息实现窗体的拖动功能。文章提供了一个具体的示例代码，展示了如何设置窗体样式及响应鼠标移动事件来发送系统消息，使窗体能够被拖动。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1.引用单元

uses Winapi.Windows, FMX.Platform.Win, Winapi.Messages;

2.发送消息

//发送系统消息
SendMessage(FmxHandleToHwnd(Handle), WM_SYSCOMMAND,SC_MOVE + HTCAPTION, 0);

网上说要用ReleaseCapture()，我没有用也可以，没细看为什么。

我看了一下ReleaseCapture()与StartWindowDrag，其实都是取坐标用的。

3.实例代码

 1 unit Unit1;
 2 
 3 interface
 4 
 5 uses
 6   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
 7   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects;
 8 
 9 type
10   TForm1 = class(TForm)
11     Image1: TImage;
12     procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
13       Y: Single);
14     procedure FormShow(Sender: TObject);
15   private
16     { Private declarations }
17   public
18     { Public declarations }
19   end;
20 
21 var
22   Form1: TForm1;
23 
24 implementation
25 uses Winapi.Windows, FMX.Platform.Win, Winapi.Messages;
26 {$R *.fmx}
27 
28 procedure TForm1.FormShow(Sender: TObject);
29 begin
30   Self.BorderStyle := TFmxFormBorderStyle.None; //窗体样式
31   Image1.WrapMode := TImageWrapMode.Stretch; //图片加载方式
32 end;
33 
34 procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
35   Y: Single);
36 begin
37   //发送系统消息
38   SendMessage(FmxHandleToHwnd(Handle), WM_SYSCOMMAND,SC_MOVE + HTCAPTION, 0);
39 end;
40 
41 end.