Einzelnen Beitrag anzeigen

Benutzerbild von Ultimator
Ultimator

Registriert seit: 17. Feb 2004
Ort: Coburg
1.860 Beiträge
 
FreePascal / Lazarus
 
#3

Re: Wenn OpenDialog "Abbrechen" dann soll nichtmeh

  Alt 8. Feb 2005, 21:18
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*
Julian J. Pracht
  Mit Zitat antworten Zitat