Bloquer la totalité du clavier dans un DrawGrid

Bonjour a tous ...

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

J'ai tester ceci

Code:

---

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.

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

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

Code:

---

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;

---

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:

---

1 2 3 4

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

---

Cordialement
Thierry