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.