Question

delphi form位置移动时触发事件

当 form的 TOP 或者 LEFT 改变的时候（就是我们拖动窗体位置的时候）

触发事件，怎么写？

Answer 1

覆盖窗体的 WndProc方法
procedure TForm1.WndProc(var Msg: TMessage);
begin
if Msg.Msg = WM_MOVE then //left： Msg.LParamLo top：Msg.LParamHi
begin
//这里做你想做的事情
Memo1.Lines.Add('坐标 : ' + IntToStr(Msg.LParamLo) + ':' + IntToStr(Msg.LParamHi));

end;
inherited;

end;