我只想让form2贴在form1右边，哪错了？

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Unit2;
type
  TForm1 = class(TForm)  private
  procedure   onmove(var  Msg: TMessage);message   wm_move;    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
   rect1:trect;
implementation{$R *.dfm}procedure   TForm1.onmove(var Msg: TMessage);
begin
     GetWindowRect(form1.handle,rect1);     MoveWindow(form2.handle,rect1.Left+280,rect1.Top,form2.width,form2.height,true);
end;
end.

Answer 1

if Form2 <> nil then
beginend;

Answer 2

你的Form2没有创建吧
显示是创建一下
Form2 := TForm2.Create(Application);  
Form2.Show;

Answer 3

iamduo
(狄奥)  好用哈，帅气，爱你！