Probleme mit initialdir

[markus lemcke]

Hallo,

ich habe einen openpicturedialog und möchte zur laufzeit unterschiedliche intialdir setzen!
habe es so gemacht:

<pre>
s := KfzExpData.IntExpTable.FieldByName('NUMMER').AsStr ing;
if (Sender as TComponent).Tag = 1 then
begin
ForceDirectories(Mandant_Daten + '\KfzBilder');
OpenPictureDialog1.InitialDir := Mandant_Daten + '\KfzBilder\';
OpenPictureDialog1.Filter := 'Aktuelles Kfz ' + s +
'|' + s + '*.jpg;' + s + '*.jpeg|' +
'Bilder(*.jpg;*.jpeg;*.gif;*.bmp)|*.jpg;*.jpeg;*.g if;*.bmp';
end
else
begin
OpenPictureDialog1.InitialDir := '';
OpenPictureDialog1.Filter := 'Bilder(*.jpg;*.jpeg;*.gif;*.bmp)|*.jpg;*.jpeg;*.g if;*.bmp';
end;
</pre>

dem mistdialog ist das aber wurst!
wenn er einmal ein initialdir hat, dann springt er da IMMER rein, egal was ich im code setze!
warum?

gruß

markus

[Holger_69]

Hallo Markus,

meine Antwort kommt etwas spät, hatte aber selber erst heute das Problem und hier nach einer Lösung gesucht.

Der Dialog übergibt neben "InitialDir" auch den zuletzt verwendeten "FileName" an (wie es scheint; ich habe nicht weiter gedebugt) den Explorer.

Du brauchst nur den "FileName" auf leer setzen und gut ist's.

OpenDialog1.InitialDir := <Dein Verzeichnis>;
OpenDialog1.FileName := '';
...OpenDialog1.Execute...

Liebe Grüße

Holger Rogg

[markus lemcke]

Hallo Holger,

vielen Dank für die Antwort!

Lieben Gruß

Marku