Ouvrir une Form à partir de la touche "VK_SPACE"

[Résolu]
Signaler
Messages postés
9
Date d'inscription
lundi 5 novembre 2007
Statut
Membre
Dernière intervention
26 décembre 2007
-
Messages postés
9
Date d'inscription
lundi 5 novembre 2007
Statut
Membre
Dernière intervention
26 décembre 2007
-
Bonjour,

Je souhaiterais (tout simplement) ouvrir une fiche form (nom : form25) lorsque je clique sur la touche espace de mon clavier, en étant sur l'interface main (nom : form1).

Après avoir activé l'Event OnKeyPress de la Form1, voici le code :

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
  pt: TPoint;
begin
if Key = #82 then
begin
  pt.X : = 460;
  pt.Y :=  44;
  pt := ClientToScreen(pt);



  Form25.Left := pt.X;
  Form25.Top := pt.y;
  Form25.Show;


end;
end;

Pourriez-vous svp m'eclaircir pour que ça fonctionne ?

Merci.

3 réponses

Messages postés
9
Date d'inscription
lundi 5 novembre 2007
Statut
Membre
Dernière intervention
26 décembre 2007

J'ai eu une réponse :



procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #32then form25.show;
end;

Pb résolu pour informations.
Messages postés
1154
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
5 avril 2012
2
Bonjour

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
  pt: TPoint;
begin
if Key = ' ' then // touche espace
begin
  pt.X : = 460;
  pt.Y :=  44;
  pt := ClientToScreen(pt);  Form25.Left := pt.X;
  Form25.Top := pt.y;
  Form25.Show;
end;
end;

N.B. Il ne faut pas oublié de mettre la propriété KeyPreview de la fiche à TRUE.

Cordialement.
<hr />"L'imagination est plus importante que le savoir." Albert Einstein
Messages postés
9
Date d'inscription
lundi 5 novembre 2007
Statut
Membre
Dernière intervention
26 décembre 2007

Oui , j'ai oublié de l'indiquer dans le message précédent. Merci pour votre apport !