TOpenDialog FileName vorgeben

[shmia]

Bei meinem Delphi 5 funktioniert das ohne Probleme:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   OpenDialog1.FileName := 'Delphi.txt';
   if OpenDialog1.Execute then
      ShowMessageFmt('Datei <%s> ausgewählt', [OpenDialog1.FileName]);
end;

Getestet auf Windows XP.