openpicturedialog .. kleines Problemchen

[NoXeno]

Hallo,

steh hier auf den Schlau. Ich hab nen openpicturedialog, möchte dass er aber immer von dem initialdir anfängt. Mach er hier aber nicht, er startet da, wo ich das letzte bild geöffnet habe.

Kann mir jemand hierzu etwas Nachhilfe geben

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
    openpicturedialog1.InitialDir:=ExtractFilePath(Application.ExeName);
    IF openpicturedialog1.Execute THEN
    BEGIN
         image1.picture.loadfromfile(openpicturedialog1.filename);
    END;
end;

[TimmA]

hi,

OpenDialog1.InitialDir := 'C:\OrdnerAufDeinerHDD\bla\blub\'; ... so müsste es gehen

[NoXeno]

Zitat von TimmA:

openDialog1.InitialDir := 'C:\OrdnerAufDeinerHDD\bla\blub\'; ... so müsste es gehen

hab ich schon probiert.. er öffnet zwar zuerst diesen Ordner, aber lädt man noch ein Bild, nimmt er den zuletzt benutzten Ordner..


es muss also anders funktionieren

[Wormid]

Delphi-Quellcode:

  OpenDialog1.FileName := '';
  OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0));
  if OpenDialog1.Execute then
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

So scheint es zu funktionieren... Nicht nur den Ordener setzen, sondern auch den letzten Filename, da der Dialog scheinbar dem Pfad dort den Vorrang gibt.

Gruß

Wormid

[Memo]

Das einzigste was bei meinen Versuchen geklappt hat, war

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var open :TOpenPictureDialog;
begin
   try
     open := TOpenPictureDialog.Create(self);
     open.InitialDir := ExtractFilePath(Application.ExeName);
    IF open.Execute THEN
       image1.picture.loadfromfile(open.filename);
   finally
    open.Free;
   end;
end;

warum das InitialDir beim 2.Versuch ohne Wirkung ist, ist mir auch schleierhaft. Auch noChangeDir war wirkungslos.

//Edit Code noch geändert

[NoXeno]

super

klappt wunderbar!! danke dir!!

xiao

[Memo]

bitte dir
Trotzdem komisches Verhalten.

[Memo]

Ich hab es mir gerade nach mal angesehen. Wormid hatte es in seinem Beitrag schon drin(haben wir blos alle überlesen). Man brauch nur mit
 OpenDialog1.FileName := '' zurücksetzen und dann geht es auch ohne dynamisches Erzeugen.

[NoXeno]

ja.. Wormid meinte ich auch oben mit meinen dankeschön..

deinem Engagement sei aber auch dank..

[dk3hn]

Danke für den Tip! Ich dachte eben beim selben Problem schon, ich würde spinnen...