Savedialog Frage

[jfheins]

Zitat von darkblog:

geht alles nicht :/

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
if savedialog1.Execute then
savedialog1.filename:=listbox1.Items[0];
  ListBox1.Items.Add(ExtractFileName(OpenDialog1.FileName));
end;

Probiers mal so:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
savedialog1.filename:=listbox1.Items[0];
if savedialog1.Execute then
  ListBox1.Items.Add(ExtractFileName(OpenDialog1.FileName));
end;

Kaum macht man's richtig, schon geht's

(Wenn du das Feld vorbelegen möchtest, wäre es sinnvol, dies vor dem Anzeigen mittels .Execute() zu tun