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