Save-Dialog: FileName vorgeben

[se0man]

Hallo,

also, ich habe da ein kleines Problem mit dem OnShow-Event meines SaveDialogs.
Und zwar wird dieses ja vor dem Erscheinen des Dialogs ausgeführt
(habe ich mir mit Message bestätigen lassen),
aber trotzdem wird,
wenn ich ihm in diesem Ereignis einen Filename zuweise,
dieser Vorschlag erst beim zweiten Execute angezeigt.

Warum?
Was kann ich dagegen tuen?

thanxx
-se0man

[Neuni]

Könnte es vielleicht daran liegen, dass der dialog zwar schon geöffnet ist, aber man ihn noch nicht sieht??

Könnte ich mir so vorstellen, dass der also den dialog schon öffnet, dann onshow ausführt und dann den dialog zeigt.
Dann kann er ja nicht mehr reinschreiben, da der dialog ja schon offen ist.

[nailor]

hast du was eigenes programmiert, oder verwendest du den standard "openfiledialog"?

[nailor]

save dialog mein ich ;)

[Ultimator]

Du kannst deine Beiträge auch editieren :wink:

[nailor]

[ot]jetzt ist aber zu spät[/ot]

[se0man]

is der Standart-Dialog.
(hat dich wohl das 'mein Dialog' irritiert :-D )

@ neuni: werd' ich gleich mal überprüfen gehn. thanx

[se0man]

hm...also sieht nicht so aus.
Habe Testprojekt erstellt und die einzigen zwei Prozeduren
in meiner einzigen Funktion sind

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveDialog.Execute;
end;

procedure TForm1.SaveDialogShow(Sender: TObject);
begin
  SaveDialog.FileName := 'test';
  MessageDlg('Erfolgreich eingetragen (in Eigenschaft FileName)',mtInformation,[mbOK],1);
end;

Das Ergebnis bleibt dasselbe:

Beim Klicken auf Button1 zeigt er die Message an
und schließlich den SaveDialog ohne Dateinamen-Vorschlag.
Wenn ich diesen nun abbreche,
und erneut auf den Button1 klicke,
erhalte ich die Message und dann den
erwünschten SaveDialog MIT Dateinamen-Vorschlag...

Irgendwelche anderen Ideen?

-se0man

[mirage228]

Hi,

so mache ich es immer:

Delphi-Quellcode:

SaveDialog.FileName := 'test'; 
if SaveDialog.Execute then
begin
  // tue was
end;

mfG
mirage228

[nailor]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveDialog.FileName := 'test';
  SaveDialog.Execute;
end;

probier mal so^^