请问怎样的到form的left和top改变了的事件??是什么事件啊.

Question

请熟悉的朋友回答一下,谢谢..

Answer 1

在哪里写都可以
var l:Integer;
    t:Integer;
begin
    l:=Left;
    t:=Top;
end;

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
     procedure FrmMsg(var Msg:tmsg); message WM_MOVE;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure tform1.FrmMsg(var msg:TMSG);
begin
   showmessage('move');
end;
end.

Answer 3

to: loyguoyi(郭轶) 误解我的意思了,我是要得到改变时的事件,而不是得到改变后的值;To: cdsgajxlp(起名很难),重画事件太多,我要在位置改变时做很多操作,那么同样的操作就会重复太多,大大降低计算机性能.所所以我认为不可取.To:niwei77(扳手),谢谢你的回复.我要得就是这个.发20分,表示我对你的感谢.