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ć?