Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
Внизбесконечный цикл Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c