Re: Delphi Close Button

Posted by han77 on January 22, 2004 at 11:47:13:

In Reply to: Delphi Close Button posted by Joey on January 21, 2004 at 18:15:51:

Put your code on close button in the form's event OnClose like this:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //check list
  if  .... then begin
    // show 3 button save , cancel, no
    if save then begin 
      ...  // your code 
    end else 
    if cancel then begin
      ...  // your code 
      abort;  // cancel close the program
    end else begin // No button
      ...  // your code 
    end; 
  end;
end;