- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
procedure TForm1.TrackBar1Change(Sender: TObject);
var I: integer;
priority:TThreadPriority;
{ Изменение приоритета соответствующего потока }
begin
priority:=tpIdle;
for i:=0 to ((Sender as TTrackBar).position -1) do
inc(priority);
if sender=trackbar1 then thread1.priority:=priority else
if sender=trackbar3 then thread3.priority:=priority
else thread2.Priority:=priority;
end;