![]() |
|
#1
|
||||
|
||||
![]() При нажатии на кнопку 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; Как сделать, чтоб они выполнялись одновременно? Может использовать потоки? Последний раз редактировалось lmikle, 22.06.2011 в 20:30. |