выход из цикла по нажатию кнопки на формее
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
нужно сделать так чтобы цикл прекращался, когда на форме нажимается кнопка
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
if tag=1 then begin tag:=0 end else begin tag:=1;
i:=0;
while (i<1) and (tag=1) do
begin
Canvas.TextOut(20,20, IntToStr(Random(5000))); //какое-то действие
Application.ProcessMessages; // Обязательно
end;
end;
end;
Хотя есть варианты и попроще
var
i: integer;
begin
if tag=1 then begin tag:=0 end else begin tag:=1;
i:=0;
while (i<1) and (tag=1) do
begin
Canvas.TextOut(20,20, IntToStr(Random(5000))); //какое-то действие
Application.ProcessMessages; // Обязательно
end;
end;
end;
Хотя есть варианты и попроще
спасибо. я так понял что главное это AplicationProcessMessages. а без этого можно как нибудь, кроме варианта с созданием потока?
А чем оно тебе мешает?gtnick писал(а):а без этого можно как нибудь
-
Игорь Акопян
- Сообщения: 1440
- Зарегистрирован: 13 окт 2004, 17:11
- Откуда: СПБ
- Контактная информация:
Anticler, чтобы не выделять вручную синтаксис, воспользуйтесь тэгами
[noparse] [syntax='delphi']ваш код[/syntax] [/noparse]
[noparse] [syntax='delphi']ваш код[/syntax] [/noparse]
OK! Tnks!Игорь Акопян писал(а):Anticler, чтобы не выделять вручную синтаксис, воспользуйтесь тэгами
[noparse] [syntax='delphi']ваш код[/syntax] [/noparse]
(делаьть было нечего)
