таймер

nattaella · 22 июн 2011

При нажатии на кнопку BitBtn1 у меня одновременно должны начать выполняться процедура RunRight(0); и в LEdit4 показываться числа от 15 до 0 с интервалом в 1 сек. :
Код:
procedure TForm1.BitBtn1Click(Sender: TObject);
var p:integer;
begin
RunRight(0);
for i:=5 downto 1 do begin
LEdit4.Text:=inttostr(i);
sleep(1000);
Application.ProcessMessages;
LEdit4.Text:=inttostr(i-1);
end;
end;
Код:
Как сделать, чтоб они выполнялись одновременно? Может использовать потоки?

nayke · 23 июн 2011

nattaella сказал(а): ↑
При нажатии на кнопку BitBtn1 у меня одновременно должны начать выполняться процедура RunRight(0); и в LEdit4 показываться числа от 15 до 0 с интервалом в 1 сек. :
Код:
procedure TForm1.BitBtn1Click(Sender: TObject);
var p:integer;
begin
RunRight(0);
for i:=5 downto 1 do begin
LEdit4.Text:=inttostr(i);
sleep(1000);
Application.ProcessMessages;
LEdit4.Text:=inttostr(i-1);
end;
end;
Код:
Как сделать, чтоб они выполнялись одновременно? Может использовать потоки?
Нажмите, чтобы раскрыть...
Можно через компонент TTimer
на click вешаете
Код:
begin
RunRight(0);
k:=0;
EndTimer:=15;
Timer1.enabled:=true;
в обработчике таймера
Код:
label4.caption:=k;
timer1.enabled:=not(k=EndTimer);
inc(k);
переменные k,EndTimer глобальные целые.
Однако это не означает, что ваша процедура будет идти 15 сек. Если вам необходимо именно по действиям процедуры ставить таймер нужно другое решение исходя их кода процедуры.

ikot · 25 июн 2011

nayke сказал(а): ↑
Можно через компонент TTimer
на click вешаете
Код:
begin
RunRight(0);
k:=0;
EndTimer:=15;
Timer1.enabled:=true;
в обработчике таймера
Код:
label4.caption:=k;
timer1.enabled:=not(k=EndTimer);
inc(k);
переменные k,EndTimer глобальные целые.
Однако это не означает, что ваша процедура будет идти 15 сек. Если вам необходимо именно по действиям процедуры ставить таймер нужно другое решение исходя их кода процедуры.
Нажмите, чтобы раскрыть...
использование таймера не решит проблемы, так как код будет выполнятся последовательно, т.е. сначала выполнится процедура RunRight, а только затем включится таймер. И поскольку никому, кроме автора, неизвестно что делает эта процедура (а она может, например, заморозить работу основной программы на 30 мин. к примеру), то одним из вариантов решения - это использование потоков

таймер

nattaella Гость

nayke Well-Known Member

ikot Active Member

Таймер обратного отсчёта

Динамически созданный таймер не может остановиться

Проблема С Таймером

Таймер

Statusbar (сообщение) И Таймер1

Поделиться этой страницей