窗口跟随 - 回复 "heyongan" 的问题

问题来源: http://www.cnblogs.com/del/archive/2008/12/20/985931.html#1408193

---

本例中的 Form2 所在 Unit2 中没有任何代码, 以下是 Unit1 中的代码:

---

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;



type

  TForm1 = class(TForm)

    procedure FormShow(Sender: TObject);

  protected

    procedure WMMove(var Message: TWMMove); message WM_MOVE;

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



{ TForm1 }



uses Unit2;



var a,b: Integer;



procedure TForm1.FormShow(Sender: TObject);

begin

  Form2.Show;

  Form2.Left := Left;

  Form2.Top := Top + Height;

  a := Form2.Left - Left;

  b := Form2.Top - Top;

end;



procedure TForm1.WMMove(var Message: TWMMove);

begin

  if Assigned(Form2) then

  begin

    Form2.Left := Left + a;

    Form2.Top := Top + b;

  end;

  inherited;

end;



end.