Кидаешь Edit и процедуру
Код:
procedure TForm1.btn1Click(Sender: TObject);
begin
Tmr1.Interval:= d; // интервал
Tmr1.Enabled:= Not(Tmr1.Enabled); // вкл / выкл
end;
меняем на
Код:
procedure TForm1.btn1Click(Sender: TObject);
begin
d := StrToInt(Edit1.Text) * 1000; //Время в таймере в милисекундах, а мы переводим в секунды
Tmr1.Interval := d; // интервал
Tmr1.Enabled := not(Tmr1.Enabled); // вкл / выкл
end;
Как-то так.
p.s.
Цитата:
а как незнаю в школе учили тока в паскале абс=)
|
, а я вообще не знаю что такое PascalABC и в школе его не учил))))