Discussion :

[awax]

salut:
es que c'est possible de désactiver le fonctionnement de la touche DELETE pendant l'éxuction de mon application ou bien changer leur fonctionnement. j'ai utiliser le code suivant:

Code :

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

1
2
if (key=VK_DELETE )  then
 button3.Visible:=false;

mais il n'y a aucune changement pourtan ça marche avec les autre boutton.
merci.

[Droïde Système7]

Bonjour,

Je ne vois pas trop le rapport le ton delete avec un TButton.

Regarde le code suivant, il va peut-être de donner une idée :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
    begin
      if Key=(VK_DELETE) then
  begin
   Key:= 0;
  button3.Visible:=false;
end;

@+

[sjrd]

Si ton code se situe dans Form1.OnKeyDown, il faut veiller à ce que la propriété KeyPreview de ta fiche soit positionnée à True.