Open Dialog - Abbrechhen Ereignis

[chris_82]

Wie fange ich beim Open Dialog, das Ereignis ab, wenn ich auf den Button abbrechen klicke?

[neolithos]

OpenDialog -> OnCanClose

[Daniel B]

Hi,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    ShowMessage('Öffnen geklickt')
  else
    ShowMessage('Abbrechen geklickt');
end;

[neolithos]

Na gut, dass hätte auch gemeint sein können.

[chris_82]

Also ich meine, ich bin bin Openfile Dialog, wenn ich nun den Button abbrechen klicke kommt ne Fehlermeldung von wegen "Zugriffsverletzung bei Adresse...." da ich nach dem schließen des Dialogs trotzdem das LoadMethode aufrufe. Nun will ich ebne eine if Bedingung schreiben: sprich if opendialog=ok dann...

wie greife ich aber auf die Button zu?

bzw welche Ereigniss sind das?

[Tom]

Ist Daniels Beitrag so unverständlich?

[neolithos]

siehe Daniel B

[Phoenix]

Auf Deutsch:

Die execute-Methode auf dem Dialog liefert true zurück, wenn auf okay geklickt wurde und sie liefert false zurück, wenn auf abbrechen geklickt wurde.

[chris_82]

Ja für mich irgendiwe schon weiß jedenfalls nicht wie ich das hier irgendwie einbauen soll:

Delphi-Quellcode:

 opendialog.execute;
 fn_od:=opendialog.filename;
 label4.caption:=fn_od;
 xml_adt1:=xmldoc.LoadXMLDocument(fn_od);

es soo ja im prinzi so aussehen:

Delphi-Quellcode:

 opendialog.execute;
 if ok then
 begin
  fn_od:=opendialog.filename;
  label4.caption:=fn_od;
  xml_adt1:=xmldoc.LoadXMLDocument(fn_od);
 end;
 else
 ....

so wer kann das da einbauen?

[Phoenix]

Ist das denn so schwer?

Du nimmst den OpenDialog.Execute einfach in die if - bedingung:

Delphi-Quellcode:

 if opendialog.execute then
 begin
  fn_od:=opendialog.filename;
  label4.caption:=fn_od;
  xml_adt1:=xmldoc.LoadXMLDocument(fn_od);
 end;
 else
 ....