Developing.ru

нужно сделать так чтобы цикл прекращался, когда на форме нажимается кнопка

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;





Хотя есть варианты и попроще

спасибо. я так понял что главное это AplicationProcessMessages. а без этого можно как нибудь, кроме варианта с созданием потока?

gtnick писал(а):а без этого можно как нибудь

А чем оно тебе мешает?

Anticler, чтобы не выделять вручную синтаксис, воспользуйтесь тэгами
[noparse] [syntax='delphi']ваш код[/syntax] [/noparse]

Игорь Акопян писал(а):Anticler, чтобы не выделять вручную синтаксис, воспользуйтесь тэгами
[noparse] [syntax='delphi']ваш код[/syntax] [/noparse]

OK! Tnks!
(делаьть было нечего)