[delphi/synedit] wczytywanie wielu plików na raz

0

Witam.

Jak wczytać wiele plików do kolejnych zakładek. chodzi o to, że mam listę ze ścieżkami do plików i zaznaczam sobie powiedzmy 2 i chce żeby się otworzyły w dwóch zakładkach.
stworzyłem taki kodzik

procedure TMainForm.wczytaj1Click(Sender: TObject);
var
i:integer;
begin
zakladka := TTabSheet.Create(self);
zakladka.PageControl:=PageControl1;
zakladka.Show;
edytor:= TSynEdit.Create(self);
edytor.Align:=alClient;
edytor.Parent := zakladka;

for i:=0 to mru.SelCount - 1 do
begin
 (PageControl1.ActivePage.Controls[0] as TSynEdit).Lines.LoadFromFile(mru.Items[mru.itemindex]);
 zakladka.Caption:=ExtractfileName(mru.Items[mru.itemindex]);
end;
end;

gdzie "mru" to komponent ListBox.
Problem tkwi w tym, że wczytuje się ostatni zaznaczony plik(nie ostatni na liście tylko ostatni kliknięty) w tylu zakładkach ile było zaznaczonych pozycji.

Może wiecie jak to naprawić?

0

zamiast mru.Items[mru.ItemIndex] daj mru.Items[i]
dajac ItemIndex odwolujesz sie do aktualnej pozycji na liscie a dajac mru.items[i] ta pozycja bedzie sie zmieniac w zaleznosci od petli ktora dales wczesniej

pozdro

0

Dzięki. działa :)
A wiecie może jak będzie wyglądała modyfikacja tego dla komponentu OpenDialog?
trochę kombinowałem, ale nie wyszło.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0