Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
2. Jul 2007
Bei mir funktioniert das problemlos. Vielleicht solltest du ein Mini-Projekt erstellen. Ein Button und ein OpenDialog:
procedure TDemoForm.OpenButtonClick(Sender: TObject);
begin
with OpenDialog do
begin
FilterIndex := 2;
if Execute then
ShowMessage(FileName);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
2. Jul 2007
Herzlich willkommen in der Delphi-PRAXiS, Ruben.
Ich habe leider nicht die gleiche Delphi-Version, aber ich vermute keinen Fehler in TOpenDialog. Wie stellst du denn auf "Alle Dateien" um? Ich würde den FilterIndex auf 2 setzen - deine Einstellungen vor Augen. Eventuell nimmst du noch einen dritten Filterausdruck auf und vertauschst mal deren Reihenfolge um deinem Fehler auf die Spur zu...