[Alegun]

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

...Как сделать, чтобы по указанному числу секунд в SpinEdit заполнялся Gauge?

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Gauge1.AddProgress(1);
 if Gauge1.Progress = SpinEdit1.Value then
  Timer1.Enabled:= false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Gauge1.MaxValue:= SpinEdit1.Value;
 Timer1.Interval:= 1000;
 Timer1.Enabled:= true;
end;