Forms 'andocken'

[Mackhack]

Machs doch ganz einfach so, sieht vlt. bissi Q & D aus aber funzt!

Delphi-Quellcode:

  private
    { Private declarations }
    procedure WMMove(var Msg: TWMMOVE); message WM_MOVE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  unit2;

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm1.WMMove(var Msg: TWMMOVE);
begin
  if Form2 <> Nil then
    MoveWindow(Form2.Handle, Form1.Left + Form1.Width + 5, Form1.Top, Form2.Width,
                 Form2.Height, True);
end;