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.
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;
begin
//Perintah agar Form tidak dapat di Close
CanClose:= False;
//Minimize
Application.Minimize;
end;
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;
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;