configurer une touche pour quitter un programme a tout moment

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : configurer une touche pour quitter un programme a tout moment

floflo64160

Bonjour
Je débute en programmation et j'aimerai créer une fonction ou une procédure qui me permettrait de quitter mon programme a n'importe quel moment en appuyant sur la touche echap par exemple.
JE ne vois pas trop comment faire si vous pourriez m'aider =)

Publicité

alex181

The show must go on

Bonjour,
Je ne suis pas non plus expert mais je pense que tu vas avoir besoin de créer un thread dédié à quitter le prog (il faudra un listener clavier) et un autre thread pour les opérations principales de ton programme.

Oula, j'me rend compte que le topic commence à dater un peu...

Flagad'aware

c pô moi, j'ai pas touché!

Salut,

heu oui le topic date un peu mais ça peut être fort utile

voila une idée qui n'est pas d'expert non plus mais qui peut rendre bien service pour des programmeurs en herbe (à ne pas utiliser pour des applis où l'on a à enregistrer des infos importantes à moins de bien contrôler ce qu'on va faire derrière... enfin bref cela reste à commentaires)

en utilisant les events du clavier on peut avoir quelque-chose de fonctionnel! (http://delphi.about.com/cs/adptips [...] 0802_4.htm):

avec:

procedure TForm1.FormCreate(Sender: TObject) ;
begin
KeyPreview := True;
end;

puis

procedure TForm1.FormKeyPress
(Sender: TObject; var Key: Char) ;
begin
if key = #27 then cekontveut; //si la touche Esc est pressée...
end;

meme si c'est pas très "propre" on peut utiliser la caption du bouton qui va exécuter le code à quitter :

tout cela n'est qu'un exemple à mettre en application mais on utilisera:

procedure TForm1.FormKeyPress
(Sender: TObject; var Key: Char) ;
begin
if key = #27 then //si la touche Esc est pressée...
begin
if button1.caption:='Exit' then button1.caption:='Run' ; // voir après sur le reste de l'exemple
end;
end;

par défaut, donc avant le clic sur notre bouton, sa caption doit être "Run":

procedure TForm1.btn1Click(Sender: TObject);
var
i:word;
begin
button1.caption:='Exit'; // tant que l'on exécute notre code, on met notre caption du bouton à "Exit"...

for i:= 1 to 2000000 do
begin
// memo1.lines.add('coucou');
// enfin ce que l'on execute...

if button1.caption='Run' then Exit; // si l'utilisateur a appuyé sur Escape on sort!

end;

button1.caption:='Run'; // fin de la procédure (ou fonction) si personne n'a pressé la touche Escape, on remet la caption de button1 à "Run"

end;

il faut bien faire attention aux majuscules de nos captions et surtout ne pas inverser nos "état de captions" mais cela fonctionne pas mal

Message édité par Flagad'aware le 18-04-2012 à 13:02:06

breizhbugs

Tu t'es trompé dans le dernier code:

Dans ta boucle il faut tester si le bouton a été transformé de 'Exit' en 'Run' car quand l'utilisateur clic sur 'Exit' pour sortir le bouton se transforme en 'Run'
donc:
if button1.caption='Run' then Exit; // si l'utilisateur a appuyé sur Escape on sort!

---------------
Seul Google le sait...

Flagad'aware

c pô moi, j'ai pas touché!

Oula oui merci c'est corrigé

c'est clair que la boucle n'irai pô loin :whistle:

FORUM HardWare.fr

Programmation

Delphi/Pascal

configurer une touche pour quitter un programme a tout moment

Sujets relatifs
Creation petit programme	pouvez vous m'aidez a crée un programme en C
Exécution d'une commande Dos dans un programme Java	besoin d'explication du fonctionnement de cette partie de programme!
Stopper mon programme.	comment fonctionne ce programme?
Déterminant Matrice carrée programme	faire un petit programme
aide pour modifier un petit programme avant le 21/12, 9h	ecrire un programme (pascal) qui calcule X puissance n ?!!!
Plus de sujets relatifs à : configurer une touche pour quitter un programme a tout moment

Page générée en 0.051 secondes