Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Abfragemenü

   
    by s.h.a.r.k, 20. Apr 2011
  Du kannst auch anstatt Self einfach nil einsetzen, solltest dich dann aber um die Freigabe selbst kümmern! Denn dann wird der SaveDialog nicht mehr automatisch freigegeben, wenn die Form beendet wird. Mein try-finally-Block von oben ist eben genau dafür da ;)
  
  Und bzgl. dem Fehler bei deinem Self: du wirst sehr wahrscheinlich wohl keine Methode der TForm1 (oder wie deine Klasse sonst heißt)...
• Forum: Programmieren allgemein

  AW: Abfragemenü

   
    by s.h.a.r.k, 20. Apr 2011
  procedure TForm1.OnCloseQuery(Sender: TObject; var CanClose: Boolean);
  begin
  CanClose := True;
  case MR of
  mrYes : begin
  SD := TSaveDialog.Create();
  try
  // Set dialog properties
  // ...
• Forum: Programmieren allgemein

  AW: Abfragemenü

   
    by s.h.a.r.k, 20. Apr 2011
  Evtl. sollte man noch dazu sagen, dass die Methode MessageDlg() nicht threadsafe ist und man diese in der Unit Dialogs findet.
• Forum: Programmieren allgemein

  AW: Abfragemenü

   
    by s.h.a.r.k, 20. Apr 2011
  var
  MR : TModalResult;
  begin
  MR := MessageDlg('Möchten Sie die Änderungen im Dokument1 speichern?', mtInformation, , 0);
  case MR of
  mrYes : ;
  mrNo : ;
  mrCancel : ;
  end;
  end;