Ouvrir une Form à partir de la touche "VK_SPACE"Résolu

Question

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.

kerizo · Accepted Answer

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.

WhiteHippo · Answer

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

kerizo · Answer

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

Ouvrir une Form à partir de la touche "VK_SPACE"

3 réponses

Votre réponse