Evenement clavier [Résolu]
impossibleok
- Messages postés
- 55
- Date d'inscription
- lundi 27 mars 2006
- Dernière intervention
- 26 juin 2009
- Messages postés
- 12
- Date d'inscription
- lundi 29 décembre 2008
- Dernière intervention
- 18 février 2009
A voir également:
- Delphi tshiftstate
- Tshiftstate delphi - Meilleures réponses
- Vk_escape delphi - Meilleures réponses
- Delphi / Pascal : Lecteur/enregistreur d'événements clavier/souris (fonctionne aussi a - Guide
- Utilitaire qui montre les évenements claviers. - Codes sources - Visual Basic / VB.NET (Souris, Clavier, etc…)
- Simulation d'événements clavier et souris - Codes sources - C# / .NET (Astuces)
- Evènement clavier ✓ - Forum - C# / .NET
- Evenement clavier sur application en arrière plan ✓ - Forum - VB.NET
19 réponses
Meilleure réponse
- Messages postés
- 3982
- Date d'inscription
- mardi 8 mars 2005
- Dernière intervention
- 7 novembre 2014
Bin tu peux pondre un truc dans ce genre là, en ajoutant une booléenne private à ta Form... Mais bon c'est le genre de code qui a tendance à faire n'importe quoi : si la orm perd le focus alors que ctrl est appuyé, le relachement de ctrl n'est pas pris en compte.
C'est là que le hook proposé par JulioDelphi peut s'avérer plus efficace.
<hr size="2" width="100%" />unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
bCtrlWasPressed: Boolean;
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and (not bCtrlWasPressed) then
begin
memo1.Lines.Add('Touche ctrl appuyée');
bCtrlWasPressed:= True;
end;
end;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (not (ssCtrl in Shift)) and (bCtrlWasPressed) then
begin
memo1.Lines.Add('Touche ctrl relachée');
bCtrlWasPressed:= False;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.ReadOnly:= True;
KeyPreview:= True;
end;
end.
C'est là que le hook proposé par JulioDelphi peut s'avérer plus efficace.
<hr size="2" width="100%" />unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
bCtrlWasPressed: Boolean;
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and (not bCtrlWasPressed) then
begin
memo1.Lines.Add('Touche ctrl appuyée');
bCtrlWasPressed:= True;
end;
end;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (not (ssCtrl in Shift)) and (bCtrlWasPressed) then
begin
memo1.Lines.Add('Touche ctrl relachée');
bCtrlWasPressed:= False;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.ReadOnly:= True;
KeyPreview:= True;
end;
end.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
91 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2354
- Date d'inscription
- dimanche 5 octobre 2003
- Dernière intervention
- 18 novembre 2010
- Messages postés
- 55
- Date d'inscription
- lundi 27 mars 2006
- Dernière intervention
- 26 juin 2009
- Messages postés
- 55
- Date d'inscription
- lundi 27 mars 2006
- Dernière intervention
- 26 juin 2009
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ssCtrl in Shift then
DBGrid1.Options := DBGrid1.Options + [dgMultiSelect];
end;
quelle est la procedure qui fait le contraire quand on relache la touche CTRL ???
DBGrid1.Options := DBGrid1.Options - [dgMultiSelect];
Shift: TShiftState);
begin
if ssCtrl in Shift then
DBGrid1.Options := DBGrid1.Options + [dgMultiSelect];
end;
quelle est la procedure qui fait le contraire quand on relache la touche CTRL ???
DBGrid1.Options := DBGrid1.Options - [dgMultiSelect];
- Messages postés
- 55
- Date d'inscription
- lundi 27 mars 2006
- Dernière intervention
- 26 juin 2009
- Messages postés
- 55
- Date d'inscription
- lundi 27 mars 2006
- Dernière intervention
- 26 juin 2009
- Messages postés
- 3982
- Date d'inscription
- mardi 8 mars 2005
- Dernière intervention
- 7 novembre 2014
Ce n'est pas une variable proposée par Delphi ! C'est un membre de classe que j'ai ajouté à ma Form.
<hr size="2" width="100%" />
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
bCtrlWasPressed: Boolean;
public
{ Déclarations publiques }
end;
<hr size="2" width="100%" />
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
bCtrlWasPressed: Boolean;
public
{ Déclarations publiques }
end;
- Messages postés
- 55
- Date d'inscription
- lundi 27 mars 2006
- Dernière intervention
- 26 juin 2009
bin! j'ai mal pigé!
sinon ça m'a ete d'une grande utilité. merci.
j'ai méme usé de cette var: bCtrlWasPressed dans les clics sur dbgrid1, histoire de desactiver le multiselect si (not bCtrlWasPressed) ce qui fait discparaitre l'effet de deux lignes selectionnées apres le scroll avec gestion de la molette biensur.
merci encor une fois.
sinon ça m'a ete d'une grande utilité. merci.
j'ai méme usé de cette var: bCtrlWasPressed dans les clics sur dbgrid1, histoire de desactiver le multiselect si (not bCtrlWasPressed) ce qui fait discparaitre l'effet de deux lignes selectionnées apres le scroll avec gestion de la molette biensur.
merci encor une fois.
- Messages postés
- 55
- Date d'inscription
- lundi 27 mars 2006
- Dernière intervention
- 26 juin 2009
- Messages postés
- 12
- Date d'inscription
- lundi 29 décembre 2008
- Dernière intervention
- 18 février 2009
bonjour a tous malgres vos post je n'arrive pas a faire que lorsque j'appuie sur la touche echap cela ferme mon application...je suis vraiment un noob donc un petit coup de main serais pas de refus...
En fait mon probleme est que je ne suis pas sur si mon programme vois ce qui se passe sur mon clavier, pourtant j'ai bein mis KeyPreview := true dans ma fiche est egalement dans ma partie conception...j'ai egalement creer une var Key : word dans une procedure...
Je ne sais pas si je me suis fait bien comprendre, en tout cas merci a ceux qui me donne un petit coup de main.
Mon adresse msn :)
[mailto:eole15@live.fr eole15@live.fr]
EoLe15
En fait mon probleme est que je ne suis pas sur si mon programme vois ce qui se passe sur mon clavier, pourtant j'ai bein mis KeyPreview := true dans ma fiche est egalement dans ma partie conception...j'ai egalement creer une var Key : word dans une procedure...
Je ne sais pas si je me suis fait bien comprendre, en tout cas merci a ceux qui me donne un petit coup de main.
Mon adresse msn :)
[mailto:eole15@live.fr eole15@live.fr]
EoLe15
- Messages postés
- 12
- Date d'inscription
- lundi 29 décembre 2008
- Dernière intervention
- 18 février 2009
dsl du double post mais voici mon programme pourriez-vous me dire ce qui va pas?
unit fin_programme_by_VV;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls ;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure Formkeydown(Sender : TObject ; var Key : Word; Shift: TShiftState);
private
{ Déclarations privées }
escape : boolean;
public
{ Déclarations publiques }
end;
var
Form1 : TForm1;
escape : boolean;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin;
KeyPreview := true;
escape := false;
end;
procedure TForm1.FormKeyDown(Sender : TObject ; var Key : word ; Shift: TShiftState);
begin
while (escape <> true ) do
begin
ShowMessage('Ca marche?');
if (Key = VK_ESCAPE) then
begin
escape := true;
end
end;
Application.Terminate;
end;
end.
EoLe15
unit fin_programme_by_VV;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls ;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure Formkeydown(Sender : TObject ; var Key : Word; Shift: TShiftState);
private
{ Déclarations privées }
escape : boolean;
public
{ Déclarations publiques }
end;
var
Form1 : TForm1;
escape : boolean;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin;
KeyPreview := true;
escape := false;
end;
procedure TForm1.FormKeyDown(Sender : TObject ; var Key : word ; Shift: TShiftState);
begin
while (escape <> true ) do
begin
ShowMessage('Ca marche?');
if (Key = VK_ESCAPE) then
begin
escape := true;
end
end;
Application.Terminate;
end;
end.
EoLe15
- Messages postés
- 1293
- Date d'inscription
- mardi 28 octobre 2003
- Statut
Bonjour,
Là, j'ai l'impression que quelle que soit la touche que tu appuies, ton programme se ferme, non ? (Le "Application.Terminate" est mal placé)
Je ne pense pas que tu aies besoin de ta variable "escape". Il te suffit juste de gérer le OnKeyDown de ta form avec un truc genre :
procedure TForm1.FormKeyDown(Sender : TObject ; var Key : word ; Shift: TShiftState);
begin
if Key = VK_ESCAPE
then Application.Terminate;
end;
Ça devrait marcher...
Simon
Là, j'ai l'impression que quelle que soit la touche que tu appuies, ton programme se ferme, non ? (Le "Application.Terminate" est mal placé)
Je ne pense pas que tu aies besoin de ta variable "escape". Il te suffit juste de gérer le OnKeyDown de ta form avec un truc genre :
procedure TForm1.FormKeyDown(Sender : TObject ; var Key : word ; Shift: TShiftState);
begin
if Key = VK_ESCAPE
then Application.Terminate;
end;
Ça devrait marcher...
Simon
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.