27.03.2017, 18:17
|
|
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
Цитата:
Сообщение от 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;
|