Sortir d'une boucle avec la touche ESC

procedure TForm1.Button1Click(Sender: TObject);
var
LoopAborted : boolean;
i : integer;


begin
LoopAborted := false;
i := 0;
repeat
// Your Code...
Caption := inttostr(i);
Application.ProcessMessages;

if GetKeyState(VK_Escape) and 128 = 128 then
begin
LoopAborted := true;
break;
end;

inc(i);
until i = 100000;
if LoopAborted then
ShowMessage('User has aborted the loop!');
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour29/11/2001
VisualisationVu 880 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Autre categorie
Auteur de l'article
Communauté Delphi Communauté Delphi
connecté le 02/11/2011
0 articles dans la section
Contacter l'auteur