Arsip: Form yang selalu berdampingan kemanapun perginya


by nickqin in Articles more 13 years ago 2588
Pernah aku membaca sebuah ebook yg isinya mengenai Delphi Vs windows api,
disana dipaparkan kehebatan delphi melawan windows api.
salah satu contohnya adalah form yang selalu berdampingan, dimana form lainnya selalu ikut/berada disamping form utama, delphi mendeteksi message dari windows.
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
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com