Arsip: Form yang selalu berdampingan kemanapun perginya

untuk lebih mudahnya buat 2 buah form
ketik kode berikut pada form 1 ato form utama

//letakan procedur ini pada private deklarasi
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.WMMove(var Msg: TWMMove);
begin
//jika toolbar window ada
if Form2<>NIL then
//atur posisi form kedua ada disini
MoveWindow(Form2.Handle, Form1.Left+Form1.Width+2, Form1.Top, Form2.Width,
Form2.Height, TRUE);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
//menampilkan form kedua saat form pertama muncul
Form2.Show;
end;

end.

Semoga bermanfaat