Sender: TSaveDialog or TOpenDialog

[sniper_w]

Delphi-Quellcode:

procedure Tserver_mainform_form.ExecuteDialog(OnCanClose: TCloseQueryEvent;Sender: TObject); 
begin
// sender MUSS schon vor dem Aufruf der Funktion existieren,
// und darf nicht erst in der Funktion durch TEtwas.Create(AOwner...) valid gemacht
if Sender is TSaveDialog then
begin
//....
end
else if Sender is TOpenDialog then
begin
//....
end;