Mam problem z wielowątkowością w programie. Stosuje poniższy kod i przy zamianie Page w notebooku zamalowuje się on na siwy kolor a zakładka się nie zmienia. Gdy cała procedura jest w jednym wątku notebook działa poprawnie. Refresh i Synchronize nic nie pomaga. Co zrobić żeby notebook działał poprawnie [???]
Główny unit:
procedure TFMain.Wyczysc;
begin
Scan.skanuj.Create(False);
end;
Unit ze skanowaniem (klasa TThread):
procedure Skanuj.Execute;
begin
// Cała procedura skanowania
Synchronize(Update);
end;
procedure Skanuj.Update;
begin
FMain.NoteBook.ActivePage:= 'Start';
FMain.Notebook.Refresh;
end;
Z góry dziękuje za pomoc.
P.S Pisze drugi raz bo mój poprzedni post został skasowany nie mam pojęcia z jakiego powodu.