Discussion :

[portu]

Bonjour à tous,


Est il possible de désactiver le bip de tout lesTEdit d'une application lorsqu'on appuie sur VK_RETURN (Enter quoi) ou faut il le faire un par un sachant que les évenements en rapport avec Key sont tous différents dans chaque ?

Le problème c'est que j'en ai pas mal et que j'ai pas envie me les faire un par un

Merci

[Pascal Jankowski]

Bonjour,

Je crois que pour éviter le bip, il suffit dans l'événement onKeyPressed du TEdit de placer :

Code :

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

 key := #0;

Et là le bip doit disparaître.

Pour les supprimer tous et si tu n'as pas touché à l'événement onKeyPressed de chaque TEDit, c'est de coder le premier TEdit avec ce que je t'ai indiqué plus haut, puis l'ors de la conception de selectionner tous les TEdit, puis dans l'inspecteur d'objet de choisir l'événement onKeyPressed du premier TEDit.
Ce n'est certainement pas la méthode la meilleure...

En espérant être clair dans mes explications ??

Cordialement

[portu]

Je connais le truc pour désactiver le bip d'un TEdit et c'est, comme tu l'as dit

Code :

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

If Key = #13 then Key := #0

Mais , comme je l'ai dit aussi, tout mes évenement en rapport avec Key sont différents des uns des autres.

Y a t'il un moyen d'aller modifier cela directement dans l'unité de déclaration du TEdit :

Mais, merci Pascal

[Bloon]

Une solution est de "surveiller" tes TEdit :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
TEditWatchInput = class
private
  fControl : TEdit;
  oldOnKeyPress : TKeyPressEvent;
  procedure newOnKeyPress(Sender: TObject; var Key: Char);
public
  constructor Create(control : TEdit);
  destructor Destroy; override;
end;
 
{ TEditWatchInput }
 
constructor TEditWatchInput.Create(control: TEdit);
begin
  fControl := control;
  // Détourne l'événement qui nous intéresse
  if assigned(control) then
  begin
    oldOnKeyPress := fControl.OnKeyPress;
    fControl.OnKeyPress := newOnKeyPress;
  end
  else
    raise Exception.Create('Il faut indiquer un TEdit...');
end;
 
destructor TEditWatchInput.Destroy;
begin
  // Restitue l'événement détourné
  if assigned(fControl) then
  begin
    fControl.OnKeyPress := oldOnKeyPress;
  end;
  inherited;
end;
 
procedure TEditWatchInput.newOnKeyPress(Sender: TObject; var Key: Char);
begin
  If (Key = #13) then
    Key := #0
  // Appel de l'ancien gestionnaire, s'il était défini
  if Assigned(oldOnKeyPress) then
    oldOnKeyPress(sender,Key);
end;

Ensuite dans le code de construction ta fenêtre :

Code :

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

1
2
3
4
listeTEdit := TObjectList.Create(true);
for i := 0 to ComponentCount - 1 do
  if (components[i] is TEdit) then
    listeTEdit.Add(TEditWatchInput.Create(components[i] as TEdit));

Dans le destructeur de la fenêtre :

Code :

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

listeTEdit.Free;

C'est un peu lourd mais efficace

Bloon

[portu]

Ok merci , je le garde bien au frais pour l'instant en attendant de voir si je ne trouve rien d'autre, mais bon, ca m'étonnerait.

Un Grand Merci.