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;