Was bewirken Dialoge?

[CalganX]

Oft wird die Frage gestellt, ob man über einen PrinterDialog drucken kann, oder warum die Datei nicht gespeichert wird, obwohl man einen SaveDialog verwendet. Deswegen möchte ich, besonders für Anfänger, das ganze ein wenig erklären:
Eure Dialoge, die ihr in der Delphi-IDE auf euer Form zieht (FontDialog, SaveDialog, OpenDialog, PrintDialog, ...) sind nicht dazu da, eine Aktion auszuführen. Sie stellen lediglich die Standard Windows-Dialoge dar, damit euer Programm auch "Formgerecht" aussieht. Mit diesen Dialogen werden also nur die Einstellungen festgelegt. Die Einstellungen, die der User eingibt, werden in einer Eigenschaft des Dialogs gespeichert.
Ein Beispiel: OpenDialog:

Delphi-Quellcode:

if OpenDialog1.Execute then 
begin  
  // Execute "startet" den Dialog; gibt true zurück, wenn 
  //Anwender auf OK/Öffnen klickt; gibt false zurück, wenn der 
  //User auf Abbrechen klickt
  ShowMessage('Sie haben die Datei' + OpenDialog1.FileName + ' ausgewählt.'); // FileName speichert den ausgewählten Dateinamen
end;

Ich, hoffe das jetzt klar geworden ist, dass Dialoge nur Einstellungen aufnehmen, die aber nicht verarbeiten. Das müsst ihr schon selber machen!

Chris

[edit=Matze]Code formatiert. Mfg, Matze[/edit]

[Daniel B]

Hallo,

um das ganze etwas zu präzisieren.
@Chris
In OpenDialog.FileName, steht nicht einfach nur der Dateiname dirn, sondern der komplette Pfad mit dazu.


Der Open- oder auch SaveDialog, sind einfach gesagt, nur einfach hilfsmittel, an den Pfad einer Datei zu gelangen.

Delphi-Quellcode:

if OpenDialog.Execute then
begin
end;

In den if-Teil, kommt man nur rein, wenn im Dialog der Button OK angeklickt wurde!
Und hier noch ein kleines Beispiel, was man noch so an Daten rausbekommen könnte, anhand des Dialogs.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    ShowMessage('Die Datei ' + ExtractFileName(OpenDialog1.FileName) + ' wurde ausgewählt.' + #13#10 +
                'Die Datei liegt im Ordner ' + ExtractFileDir(OpenDialog1.FileName) + #13#10 +
                'Der Pfad zur Datei lautet: ' + ExtractFilePath(OpenDialog1.FileName) + #13#10 +
                'Die Datei liegt auf folgendem Laufwerk: ' + ExtractFileDrive(OpenDialog1.FileName) + #13#10 +
                'Die Datei hat folgende Endung: ' + ExtractFileExt(OpenDialog1.FileName) + #13#10);
  end;
end;

Grüsse, Daniel