TOpenDialog FileName vorgeben

[nomene]

Ich suche jezt schon seit zwei Tagen nach einer Möglichkeit in einem OpenDialog eine Datei vorzugeben die markiert und angezeigt werden werden soll. Bei einer Zuweisung auf FileName passiert nicht wirklich etwas. Habe auch schon verucht die einzelnen Komponenten über Components.ClassName zumindest die Klassennamen der einzelnen Komponenten zu bekommen aber leider ohne Erfolg. Lässt sich dieses Problem irgendwie lösen oder muss ich mir wirklich einen eigenen Dialog schreiben? Bin für jede Antwort dankbar .

MfG
Nomene

[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.

[nomene]

Leider nicht ganz das was ich suche. Der Name wird zwar im Edit-Feld angezeigt, leider aber nicht in TListView markiert oder was dort verwendet wurde und genau darum geht es.

[Fussball-Robby]

Wenn du einen anderen Ordner auswählen willst, kannst du mit InitialDir arbeiten:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  AFile = 'D:\Ordner\TextDatei.txt';
begin
  with OpenDialog1 do
  begin
    InitialDir := ExtractFilePath(AFile);
    FileName := ExtractFileName(AFile);
    if Execute then
      ShowMessage(FileName);
  end;
end;

[nomene]

Nein es geht schon um Dateien aber trotzdem danke.

[shmia]

Zitat von nomene:

Leider nicht ganz das was ich suche. Der Name wird zwar im Edit-Feld angezeigt, leider aber nicht in TListView markiert oder was dort verwendet wurde und genau darum geht es.

Daran lässt sich nichts ändern. TOpenFileDialog kapselt den Dialog, den Windows anbietet.
Ich glaube man kommt über schmutzige Tricks an das Window-Handle des ListView ran.
http://bytes.com/forum/thread262498.html

[nomene]

@ Shmia:
Vielen dank für die Antwort. Hört sich ja nicht so gut an, werde jezt noch nen Stündchen veruchen mit dem Handle zu arbeiten ansosten werd ich wohl einen eigenen schreiben müssen.

[Blackheart]

Wozu denn der ganze Quatch ?

[nomene]

Zitat:

Wozu denn der ganze Quatch ?

Naja ich hab halt keine Lust bei 1000en Dateien immer wider scrollen zu müssen um die nächste auszuwählen

[Die Muhkuh]

Wenn Du die Datei per FileName einträgst, kannst Du, wenn der OpenDialog auf geht, einfach auf Öffnen klicken und musst die Datei nicht auswählen.