Sender: TSaveDialog or TOpenDialog

[Hawkeye219]

Das Posten sollte möglich sein, aber bitte als Attachment, sonst gibt's Ärger mit den Moderatoren. :wink:

Falls es sich um ein vollständiges Projekt handelt, wäre vielleicht die Freeware-Sparte geeigneter. Vielleicht könnte einer der (mitlesenden) Mods dazu was sagen?

Gruß Hawkeye

[Martin W]

Das werde ich dann wohl als neuen Thread machen :-) Und noch mal ne dumme Frage:

Delphi-Quellcode:

type
  TDialogType = (dtOpen, dtSave);

procedure Tserver_mainform_form.ExecuteDialog(AOnCanClose: TCloseQueryEvent; AType: TDialogType);
  var lOpenDialog : TOpenDialog;
      lSaveDialog : TSaveDialog;
begin
  case AType of
    dtOpen:
      begin
        lOpenDialog := TOpenDialog.Create(server_mainform_form);
        try
          lOpenDialog.DefaultExt := 'xml';
          lOpenDialog.Filter := 'XML File / xml|*.xml';
          lOpenDialog.Title := 'Datei öffnen...';
          lOpenDialog.OnCanClose := AOnCanClose;
          lOpenDialog.Options := [ofHideReadOnly,ofFileMustExist,ofEnableSizing];
          lOpenDialog.Execute;
        finally
          lOpenDialog.Free;
        end;
      end;
    dtSave:
      begin
        lSaveDialog := TSaveDialog.Create(server_mainform_form);
        try
          lSaveDialog.DefaultExt := 'xml';
          lSaveDialog.Filter := 'XML File / xml|*.xml';
          lSaveDialog.Title := 'Speichern unter...';
          lSaveDialog.OnCanClose := AOnCanClose;
          lSaveDialog.Options := [ofOverwritePrompt,ofHideReadOnly,ofEnableSizing];
          lSaveDialog.Execute;
        finally
          lSaveDialog.Free;
        end;
      end;
  end; // case AType   
end;

Wie komme ich jetzt innerhalb der an "AOnCanCLose" übergebenen Prozedure an dem Dateiname / Pfad der in dem Dialog eingegeben wurde???

Gruß

[fkerber]

Hi!

Zitat:

Zitat von Hawkeye219

Falls es sich um ein vollständiges Projekt handelt, wäre vielleicht die Freeware-Sparte geeigneter.
Gruß Hawkeye

Die OpenSource-Sparte würde sich sogar noch besser eignen :wink:

Wenns noch kein fertiges Projekt ist, du aber Fragen hast, dann kannst du es ja bei "Sonstige" unterbringen.


Ergänzung zu AoCanClose:
Diese müsste doch auf den Dialog zugreifen können, oder? Also lSaveDialog.Filename, oder?


Ciao Frederic

[Martin W]

Auf eine Variable zugreifen, die innerhalb einer anderen Prozedur geschrieben wurde???

[fkerber]

Hi!

Zitat:

Zitat von Martin W

Auf eine Variable zugreifen, die innerhalb einer anderen Prozedur geschrieben wurde???

Auf eine Property eines Dialoges....
Hast du es mal versucht?

Ciao Frederic

[Martin W]

Property ...??? Was ist dies??? Die Onlinehilfe ist nicht sehr aussagekräftig..

Gruß

[Hawkeye219]

Wenn Deine Ereignisbehandlungsroutine aufgerufen wird, erhältst Du im Parameter Sender einen Zeiger auf den Dialog. Durch einen TypeCast kannst Du dann auf alle Eigenschaften des Dialogs zugreifen:

Delphi-Quellcode:

procedure TForm1.OpenDialog1CanClose(Sender: TObject;  var CanClose: Boolean);
begin
  Dateiname := (Sender AS TOpenDialog).Filename;
end;

Das funktioniert sogar für TSaveDialog, weil TSaveDialog von TOpenDialog abgeleitet wurde.

Gruß Hawkeye

[Martin W]

Danke.