Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls
    Delphi
    by elch, 21. Mär 2003
  hmm... ok.
  
  aber ist
  Action := caNone; und
  CanClose := false
  nicht in etwa das selbe?
  
  werd's jedenfalls mal ausprobiern.
  :coder:
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls
    Delphi
    by elch, 21. Mär 2003
  oh - ehm - hat sich erledigt... der delphi-hilfe sei dank. :)
  
  procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  var ExitButton: TModalResult;
  begin
  if notsaved then
  ExitButton := MessageBox(0, 'Änderungen speichern?', 'Nicht gesichert', MB_YESNOCANCEL or MB_ICONWARNING);
  if ExitButton = mrYES then ved_save;
  if ExitButton = mrCANCEL then Action := caNone;
  end;
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Form-OnClose abbrechen? | TForm1.FormClose

    Delphi
    by elch, 21. Mär 2003
  hi! :spin:
  
  ich möchte, wenn mein programm geschlossen wird, vorher eine abfrage machen ob gespeichert werden soll. das funktioniert auch - messagebox mit YES|NO. jetzt möchte ich aber noch nen button für abbrechen machen, also CANCEL.
  
  procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  begin
  if notsaved then
  if (MessageBox(0, 'Änderungen speichern?', 'Nicht...