Wenn OpenDialog "Abbrechen" dann soll nichtmehr passieren

[Äfan]

Hi,

Ich habe folgendes:

Bei klick öffnet sich ein OpenDialog. Nachdem dem man eine Datei gewählt hat, passieren noch ein paar sachen (z.B. alle dateien des ordner werden in eine Liste gefügt)

Mein Problem:

Wenn man den OpenDialog abbricht werden trotzdem alle Dateien des ordners angezeigt, also alles nach dem OpenDialog wird ausgeführt. Gibt es ne möglichkeit eine If abfrage einzubauen wie z.B.

Delphi-Quellcode:

IF Der OpenDialog  abbgebrochen then
  nixmehr ausführen

?

MFG

[alcaeus]

Hallo Aefan,

versuchs mal mit TOpenDialog.Execute

Greetz
alcaeus

[Ultimator]

Delphi-Quellcode:

//Anstatt
procedure Machwas;
begin
  OpenDialog1.Execute;
  ShowMessage('Offen, egal, ob Abbrechen gedrückt wurde oder nicht');
end;

//Probier das mal
procedure Machwas2;
begin
  if OpenDialog1.Execute then
   begin
    ShowMessage('Offen');
    ...
   end
  else
   begin
    ShowMessage('Abbrechen gedrückt!');
    ...
   end;
end;

Ich hoff mal, ich hab das richtig verstanden *g*

[Äfan]

Bringt trotzdem nix

mfg

[alcaeus]

Hallo Aefan,

das gibts nicht, ausser du machst was falsch ;)

wenn du alles so machst wie von Ulti beschrieben, dann muesste es eigentlich klappen. Lass uns mal die entsprechenden Teile des Source sehn..

Greetz
alcaeus

[Äfan]

Delphi-Quellcode:

procedure TMainForm.ToolButton3Click(Sender: TObject);

begin
  If OpenDialog1.Execute then
    Memo.Lines.LoadFromFile(OpenDialog1.FileName);
    If OpenDialog1.FilterIndex = 1 then
     begin
      Memo.Highlighter := SynHTML;
      typ := 'htm';
    end;
    If OpenDialog1.FilterIndex = 2 then
     begin
      Memo.Highlighter := SynPHP;
      typ := 'php';
    end;
    ListView1.Clear;

HIER SIND DINGE VON DEN DU GARNICHTS WISSEN DARFST

Naja und des geht irgendwie net

[Sprint]

Du hast ja auch ein begin und end zu wenig gesetzt.

[alcaeus]

Hallo Aefan,

schon mal mit begin-end nach OpenDialog1.Execute probiert?

Greetz
alcaeus

[edit]Wo war denn da der rote Balken? :shock:[/edit]

[Äfan]

:oops: Das is mir jetzt peinlich. Das is macht der gewohnheit bei OpenDialog.Execute ohne begin zu machen. Aber naja, dass sind eben die leichtsinnsfehler. :-D

thx, greez

[Sharky]

Zitat:

Zitat von Äfan

.. der gewohnheit bei OpenDialog.Execute ohne begin zu machen....

Das ist einer der Gründe warum ich immer einen BEGIN-END Block schreibe. Auch wenn nur eine Zeile Code damit eingeschlossen wird.