Problem mit OpenDialog - Multiselect

[Blackheart]

Hallo Leute !
Habe folgendes Problem, und zwar möchte Ich Dateiennamen mit Multiselect ins
Memo einfügen nur leider klappt das nur wenn Ich mit der Maus einen Rahmen um die Datei leg und dann auf öffnen klick,
Wenn Ich die Dateien einzeln anklick mit Strg
Bild1
Bild2
Bild3
Bild4
Bild5

kommt folgendes dabei raus die letzte Datei wird immer als erste Angezeigt

Bild5
Bild1
Bild2
Bild3
Bild4

Jetzt hab Ich das folgendermaßen gelöst (siehe unten) nur leider nützt Mir das auch
nicht viel, da Ich ja vieleicht noch eine Datei dazufügen will, dann kommt ja wieder
alles durcheinander.
Ich brauch die Dateien aber eben unbedingt in der Reihenfolge wie Ich sie anklick.
Da Ich vorher nicht weiss wie der User die Eingaben tätigt müsst Ich das irgenwie abfangen.
Hab schon probiert auf die Taste Strg zu reagieren aber leider funktioniert das nicht wenn der Opendialog
geöffnet ist.
Hatte vieleicht einer von euch auch schon mal das Problem.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);  
var  
 i:Integer;  
begin  
 if Opendialog1.Execute then  
 begin  
  for i:=0 to OpenDialog1.Files.Count-1 do  
  Memo1.Lines.Add(OpenDialog1.Files.Strings[i]);  
  Memo1.Lines[Memo1.Lines.Count]:=Memo1.Lines[0];  
  Memo1.Lines.Delete(0);  
 end;  
end;

[Klaus01]

Du könntest die Memo Daten in eine Stringlist kopieren diese sortieren und dann wieder
in das Memo schreiben.

Grüße
Klaus

[Blackheart]

Daran hatte Ich auch schon gedacht aber das wird leider auch nicht funktionieren die Dateien können ja irgendeinen Namen haben, das mit Bild1 war nur als Bsp. gedacht.

[Bernhard Geyer]

Ich denke dir wird nichts anderes übrig bleiben einen eigenen Open-Dialog zu basteln.
Alternativ gibt es glaube auch die möglichkeit den bestehenden Opendialog zu erweitern. TOpenPictureDialog macht sowas. Evtl. kommst du darüber an die Markierungsreihenfolge ran.