TFormOnClose (Delphi)
Description
This example displays a message dialog box when you attempt to close the form. If you click the Yes button, the form closes; otherwise, the form only minimizes. TCustomForm.Close does not allow an action of caMinimize for a form closing itself. Close Form2 from Form1 and implement the OnClose in Form2. Place "Application.CreateForm(TForm2, Form2);" in the project dpr file to open Form2 and set the Visible property of Form2 to True.
Code
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var
myYes, myNo: TMsgDlgBtn;
myButs: TMsgDlgButtons;
begin
myYes:= mbYes;
myNo:= mbNo;
myButs:= [myYes, myNo];
if MessageDlg('Close application ?', mtConfirmation,
myButs, 0) = mrYes then
Action := caFree
else
Action := caMinimize;
end;
Uses
- Vcl.Forms.TCustomForm.OnClose ( fr | de | ja )
- Vcl.Dialogs.TMsgDlgBtn ( fr | de | ja )
- Vcl.Dialogs.TMsgDlgButtons ( fr | de | ja )