No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Interrumpir un ciclo por la interrupcion de una Tecla

delphi

var i : integer;
	begin
	 for i:= 0 to 9999999 do
	 begin
	  Label1.Caption:= IntToStr(i);
 
	  Application.ProcessMessages;
 
 
	  if GetKeyState(VK_Escape) AND 128=128 then break;
	 end;
	end;

Saludos!