Tuesday, January 4, 2011

Minimize Form Saat Di Close

Minimize Form Saat Di Close

Trik me-minimize from saat Close Button pada form di klik, biasanya digunakan pada aplikasi yang menggunakan TrayIcon.
Biasanya aplikasi-aplikasi yang menggunakan Tray Icon, pada interface nya tidak menyediakan tombol minimize, yang ada hanya tombol close (tombol yang saya maksud: kotak yang ada tanda silangnya, berada di pojok kanan atas form).

Edit event Form onCloseQuery.
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  //Perintah agar Form tidak dapat di Close
  CanClose:= False;
  //Minimize
  Application.Minimize;
end;
Kode di atas hanya contoh singkatnya saja, untuk lebih lengkapnya:
var
  cClose: Boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
  cClose:= False;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:= cClose;
  if not cClose then Application.Minimize;
end;

//Jika Button1 di-klik maka form akan ditutup.
procedure TForm1.Button1Click(Sender: TObject);
begin
  cClose:= True;
  Close;
end;

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Kang Iwan K-sev | Thank's for your visit To My Site - Ridwan Mulyana | Cibeureum