Discussion :

[kroma23]

salut
jai une form qui contient des champs edit jaimerait bien effacer le contenu de c champs en utilisant une touche de raccourci par exemple la letre n du clavier c-a-d quand j'apu sur la letre n les champs sera vide
merci

[petitcoucou31]

salut , par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var i: integer;
begin
   if key='n' then
   begin
   for I := 0 to pred(ComponentCount) do
      if Components[i] is TEdit then TEdit(Components[i]).clear;
      key:=#0;
   end;
end;

ne pas oublier de mettre le Keypreview de la form a true

[kroma23]

Merci bien mon amis c ca ce que je cherche c tre gentil
merci