CTRL + Enter

Résolu
Signaler
Messages postés
23
Date d'inscription
lundi 26 mai 2003
Statut
Membre
Dernière intervention
10 février 2006
-
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
-
Comment intercepter la commande quand on utilise CTRL + Enter dans un Tdbmemo ???

6 réponses

Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
Salut,
en utilisant l'évenement OnKeyUp du DBMemo :

procedure TForm1.DBMemo1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = vk_return) and (ssCtrl in shift) Then ....
end;





@+
Cirec
Messages postés
23
Date d'inscription
lundi 26 mai 2003
Statut
Membre
Dernière intervention
10 février 2006

Merci pour la réponse, ca marche super bien...
Juste encore une petite question si je peux, comment empecher l'action de ces touches ??
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
Salut,
pour empêcher l'action de ces touches tu fais :
procedure TForm1.DBMemo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin if (Key vk_return) and (ssCtrl in shift) <gras>Then Key :</gras> #0;
end;
Remarque que cette fois on utilise l'évènement OnKeyDown ce qui permet dès la pression sur la touche de pouvoir l'annuler mais uniquement dans le cadre de la combinaison de touches donc Enter tout seul fonctionne toujours
@+
Cirec
Messages postés
48
Date d'inscription
vendredi 4 novembre 2005
Statut
Membre
Dernière intervention
15 décembre 2008

je essayer mais il me donne une erreur "type incompatible word et char"
et si je les transformes sa me met une exeption comment faire
Messages postés
48
Date d'inscription
vendredi 4 novembre 2005
Statut
Membre
Dernière intervention
15 décembre 2008

g trouver
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
Salut,
c'est quoi que tu as tester
donne le code qui pose problème

@+
Cirec