Evo fje koju treba da threadujem :
procedure TMainWindow.CollapsePanel; stdcall;
begin
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_BELOW_NORMAL);
While Panel2.Left < Left + ClientWidth - 3 Do
Begin
Panel2.Left := Panel2.Left + 5;
UltimGrid.Width := UltimGrid.Width + 5;
Panel2.Refresh;
UltimGrid.Refresh;
End;
ExitThread(0);
end;
Medjutim, kad izbacim while petlju, thread odsljaka super.
Gde gresim ?
P.S. : Necu da koristim gotove thread klase.
poz