Discussion :

[Gregory666]

Bonjour a tous ...

Je cherche comment bloquer la totalité du clavier dans un DrawGrid.

J'ai tester ceci

Code :

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

1
2
3
4
5
procedure TMainForm.DrawGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Key := $0;
end;

Mais sa ne marche pas le première fois lorsqu'on appuis sur une touche du clavier par contre la seconde fois sa marche aucun touche est accessible dans mon cas c'est se que je veux.

Merci pour votre aide.

[Gregory666]

Lorsque appuis sur n'importe quel du touche clavier, est que le DrawGrid a le focus une sélection se fait sur la dernière casse en haut du DrawGrid.

Pièce jointe 185955

[Gregory666]

Je pence avoir résolue mon problème comme ceci ?

Code :

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

1
2
3
4
5
6
7
8
procedure TMainForm.ApplicationEvents1ShortCut(var Msg: TWMKey;
  var Handled: Boolean);
begin
  if Msg.KeyData > 0 then
   begin
    Handled := True;
   end;
end;

[ThWilliam]

Bonjour.

Bizarre le comportement de ton DrawGrid...

Tu peux contourner le problème en initialisant à true la propriété KeyPreview de ta fenêtre.
Puis :

Code :

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

1
2
3
4
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if DrawGrid1.Focused then Key:= 0;
end;

Cordialement
Thierry