Discussion :

[Godzestla]

Bonjour,

j'ai jeté un coup d'oeil dans la Faq, mais je n'arrive pas à faire fonctionenr le code suivant que j'ai récupéré d'une source Cbuilder 6.

Je veux simplement quand ma fiche est affichée, quitter si F1, F2 ou F3.

Voici mon code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
void __fastcall TVisdrawForm1::FormCreate(TObject *Sender)
{
// Intercept keyboard event
  KeyPreview = true;

Nb, j'ai aussi essayé via OnActivate, mais ne fonctionne pas non plus.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
//---------------------------------------------------------------------------
//# void __fastcall TVisdrawForm1::FormKeyDown(TObject *Sender, WORD &Key,
//  	TShiftState Shift)
//      If F1 - F2 - F3 pressed close the program
//---------------------------------------------------------------------------
void __fastcall TVisdrawForm1::FormKeyDown(TObject *Sender, WORD &Key,
	  TShiftState Shift)
{
	if (Key == VK_F1 ||	Key == VK_F2 || Key == VK_F3)
	VisdrawForm1->Close();
}

Je suppose que c'est parce que la routine FormKeyDown n'est jamais appelée.

Comment dois-je faire pour qu'elle s'exécute ou quelle est la bonne manière ?

Merci d'avance.

[ShaiLeTroll]

F1 normalement sur windows, cela donne accès à l'aide
Pour fermer une fenêtre, on utilise Echap ou CTRL+F4

Le Gestionnaire d'évènement est correctement attaché à l'objet (section __published et présent dans le DFM), tu as du le faire en passant par l'IDE, je suppose !
Aussi bien pour le OnCreate que le OnKeyDown !

J'ai créé une fenêtre
J'ai modifié via l'Inspecteur d'objet, KeyPreview à true !
J'ai créé un bouton et un memo
J'ai mis le code dans OnKeyDown
J'ai lancé, j'ai cliqué dans le Mémo
J'ai appuyé sur F1, code executé, fenêtre fermée !

J'ai refait le test en remettant KeyPreview à false, cela ne fonctionne plus évidemment

J'ai refait le test, en laissant KeyPreview à false dans l'Inspecteur, et mise à true dans le OnCreate (comme dans ton code), cela re-fonctionne de nouveau !

Le Code est fonctionnel, difficile de t'aider plus dans ta démarche !

Evite d'utiliser la variable globale VisdrawForm1, préfère lui this !

[Godzestla]

Salut,

merci pour le coup de main.

tu as du le faire en passant par l'IDE

Et non, et c'était le le problème.

Pour F1 je sais, mais le package est appelé depuis le système central I5 où le standard est F1 pour sortir, alors..... parfois il faut accepter les caprices des utilisateurs (trices dans ce cas-ci).

Donc cà marche maintenant.
tant qu'à faire je vais rajouter ESC.

Quelle est la constante pour tester ESC ?

Encore merci.

-------------edit--------------------

J'ai trouvé : VK_ESCAPE

C'est