Discussion :

[ero-sennin]

Bonsoir!

Je dispose d'un TEdit sur ma Form. Je voudrais pouvoir effectuer une chose, c'est ne saisir uniquement les chiffres. En plus de celà, on doit pouvoir faire un copier coller d'un endroit vers mon Tedit (pareil, il faut que je puisse savoir si le contenu de ce qui est en mémoire est que des chiffres)
J'ai bien une idée, c'est dans le OnKeyDown, vérifier si on a bien ssCtrl dans Shift, si oui, on récupère le contenu via le presse papier et on fait un TryStrToInt pour savoir si on a que des chiffres ou pas.
Mais bon, c'est peut -être pas très propre comme solution
De plus, j'ai remarqué que ce code ne fonctionné pas :

Code :

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

1
2
3
4
if Key=65 then
begin
  Key:=0;
end;

J'ai mis celà dans le OnKeyDown! La valeur Key n'est pas modifiée!!! Normal ou pas ? Moi je trouve celà étrange.

J'attends vos réponses en ce qui concerne donc la saisi via Ctrl+V et le OnKeyDown si vous avez une idée!

Merci
Cordialement

PS: je suis tout à fait au courant de l'entrée dans la FAQ : Comment ne rentrer que des chiffres dans un TEdit ? Mais ça ne convient pas.

[Jipété]

Io, man !

Jette donc un oeil ici
Tchô,
--
jp

[kevinou55]

peut-etre l'a tu deja fait mais il faut passer la proriété keypeview à True pour prendre en compte les actions du clavier.
Moi j'avais galéré juste a cause de ca donc on ne sait jamais ca arrive meme aux meilleurs

[ero-sennin]

Salut,

peut-etre l'a tu deja fait mais il faut passer la proriété keypeview à True pour prendre en compte les actions du clavier.
Moi j'avais galéré juste a cause de ca donc on ne sait jamais ca arrive meme aux meilleurs

Logiquement, non, il n'y a pas besoin de KeyPreview dans ce cas, je me place directement dans le contrôle

Si la propriété KeyPreview a la valeur true, les événements du clavier ont lieu dans la fiche avant d'avoir lieu dans le contrôle actif. Le contrôle actif est spécifié par la propriété ActiveControl.

Si KeyPreview a la valeur false, les événements clavier ne se produisent que dans le contrôle actif.

A++ (et merci pour ta réponse tout de même)

[ero-sennin]

Io, man !

Jette donc un oeil ici
Tchô,
--
jp

Hey! Avec ce que tu viens de poster, j'ai réussi à me confectionner mon petit truc

Le code ci dessous ... Ne pas oublier de mettre l'unit Clipbrd ...

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
const
  CTRL_C = #3;
  CTRL_V = #22;
  CTRL_X = #24;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  Value:integer;
begin
if ((Key = CTRL_C) or (Key = CTRL_X)) then
  Edit1.CopyToClipboard
else
begin
  if Key = CTRL_V then
  begin
    if Clipboard.HasFormat(CF_TEXT) then
    begin
      if TryStrToInt(Trim(Clipboard.AsText),Value) then
      begin
        Key:=#0;
        Edit1.SelText:=IntToStr(Value);
      end
      else
        Key:=#0;
    end;
  end
  else
    if not (Key in ['0'..'9']) then
      Key:=#0;
  end;
end;

Pour info :

Code :

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

1
2
3
4
5
6
7
8
9
 
const
  CTRL_A  = #1;   //= ^A
  CTRL_B  = #2;   //= ^B 
  CTRL_C  = #3;   //= ^C
  //...       
  CTRL_Y  = #25;  //= ^Y
  CTRL_Z  = #26;  //= ^Z
  CTRL_SPACE = #127;

Donc on peut faire ainsi également :

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
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  Value:integer;
begin
if ((Key = ^C) or (Key = ^X)) then // ou (Key = #3) or (Key = #24)
  Edit1.CopyToClipboard
else
begin
  if Key = ^V then // ou Key = #22
  begin
    if Clipboard.HasFormat(CF_TEXT) then
    begin
      if TryStrToInt(Trim(Clipboard.AsText),Value) then
      begin
        Key:=#0;
        Edit1.SelText:=IntToStr(Value);
      end
      else
        Key:=#0;
    end;
  end
  else
    if not (Key in ['0'..'9']) then
      Key:=#0;
  end;
end;

Merci !
@+