delphi 窗体移动事件

Posted 2023-03-19

delphi 主窗体移动时引发的事件，有没有这个事件，或者怎样可以实现，非常谢谢

参考技术A (转)我也没找到移动窗体事件！

你看用这样的方法行么 程序如下：

建立新工程 添加定时器控件 具体代码如下：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
Private declarations
public
Public declarations
end;

var
Form1: TForm1;
a,b:integer;
implementation

$R *.dfm

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (form1.Left<>a) or (form1.Top <>b) then
begin
a:=form1.left;
b:=form1.top;
//在这里添加移动 窗口事件的代码
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
a:=form1.left;
b:=form1.top;
timer1.Interval:=1;
timer1.Enabled:=true;
end;

end.
以上代码希望能满足你的要求。