Класс Work
Информация о выполняемой работе.

Класс Work предназначен для вывода информации о выполняемой работе в программах, которые выполняются длительное время. Эта информация выводится в строке состояния или в специальном окне. Объектов класса Work может быть создано несколько. При выводе информации на экран, выводится информация из последнего созданного объекта. Если существует хоть один объект Work, то курсор мыши отображается в виде "песочных часов".

Объект Work создается автоматически при первом обращении к переменной.

Пример:

Procedure OnCreate;
Var
  S : String; 
  i,j : integer;
  W : Work;
Begin             
  For j:=0 To 20 Do
  Begin       
    S := '';
    W.Description := 'Выполнено ' + ToStr(j) + ' из 20'; 
    For i:=0 To 20000 Do
      S := S + '*';
    W.Progress := j*5;
  End;  
End;

© RTIT