Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.10;
Скачать: CL | DM;

Вниз

бесконечный цикл   Найти похожие ветки 

 
Yasha   (2002-09-28 15:18) [0]

как сделать бесконечный цикл, который прерывался бы, например нажатием TButton


 
Внук ©   (2002-09-28 15:22) [1]

var flag:boolean
...
flag:=false;
...
while not flag do
begin
Appication.ProcessMessages;
end;
...
procedure TForm1.MyCoolButtonClick(...);
begin
flag:=false;
end;

P.S. А чем цикл выборки сообщений не вечный, тоже прерывается нажатием TButton, если по этому нажатию послать WM_QUIT :))


 
evgeg ©   (2002-09-28 15:27) [2]

Вызывать в теле цикла Application.ProcessMessages и проверять флажок, который устанавливается по нажатию книпки.


procedure TForm1.Button1Click(Sender: TObject);
var i, k: integer;
begin
FBreak := false;
while (true) do
begin
Application.ProcessMessages;
if FBreak then
break;
if ProgressBar1.Position = ProgressBar1.Max then
ProgressBar1.Position := ProgressBar1.Min;
ProgressBar1.Position := ProgressBar1.Position + 1;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FBreak := true;
end;


 
evgeg ©   (2002-09-28 15:28) [3]

> книпки.
кнопки.



Страницы: 1 вся ветка

Текущий архив: 2002.10.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
1-31735
KidMan
2002-09-30 22:24
2002.10.10
Exell и база данных


1-31832
davyd
2002-09-24 23:13
2002.10.10
Запустить программу до ввода логина


1-31726
Kaban
2002-10-01 12:14
2002.10.10
Граф


1-31876
3d
2002-09-29 16:20
2002.10.10
Как сделать, чтобы с формы нельзя было никуда переулючиться...


3-31635
Борис
2002-09-19 08:21
2002.10.10
Помогите обратится к таблице с паролем через TQuery