Discussion :

[kerotan]

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 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
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.

[scara]

Hello,
Essai avec ça :

Code :

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

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

IL faut mettre la propriété KeyPreveiw de la form principale à True.

[Cl@udius]

Salut

#82 ne correspondont pas à la touche espace.

Essaye comme ceci:

Code :

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

1
2
3
4
5
 
if Key = Char(VK_SPACE) then
begin
  // ...
end;

Tu auras également surement besoin de basculer la propriété KeyPreview de la form à True.

[edit] grilled !

@+ Claudius

[kerotan]

Merci scara pour votre reponse concise et Cl@udius pour votre complète !

Cordialement.