ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от AlexGT

Народ как в дельфи при достижении прогрессбаром позиции 100 (Progressbar1.Position=100) вывести меседж ?
Перепробовал кучу вариантов, в том числе с таймером ничего не получилось..

Можно в процедуре, где происходит изменение свойства Position у ProgressBar'a сравнивать новое значение с 100.

Код:

procedure SomeThing;
var
   Position: integer;
begin
   // вычисление нового значения Position
   ...
   form1.Progressbar1.position := Position;
   if (Position = 100) then
      ShowMessage('lalala');
end;