DELPHI - Set Main Form : buka form 2 dan tutup form 1

Malem pemirsa !!! :D
kali ini saya akan bagikan cara untuk membuka form lain dan menutup form yang aktif sekarang...

intinya adalah : kita setting mainform pada saat aplikasi berjalan..

oke langsung aja yah.. ini cendolnya.. eh codingnya :D

1. Buat project baru

2. Buat 2 buah form (form1 dan form2)

3. buat procedure ini dibawah {$R *.dfm} di form1

procedure SetAsMainForm(aForm:TForm);
var
  P:Pointer;
begin
  P := @Application.Mainform;
  Pointer(P^) := aForm;
end;

2. Alt + F11 (use unit) ke form 2

3. Tambahkan button di form1

4. dobel click, tambahkan coding ini :

form2.Show;
SetAsMainForm(Form2);
form1.Close;

oke beres kan pemirsa? hehe
mudah kan?

terimakasih telah berkunjung di giavano.blogspot.com ya :)