Effacer le contenu d'un TEdit

Signaler
Messages postés
10
Date d'inscription
jeudi 14 juin 2007
Statut
Membre
Dernière intervention
13 mai 2009
-
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
-
Bonsoir à tous,

Je suis débutant en delphi et je tente dans mon premier programme, de réaliser la chose suivante :

J'aimerais pouvoir entrer une chaine de caractères dans un TEdit, et que lorsque j'appuie sur la touche Entree, la chaine tapée soit stockée dans une variable et que le Edit.text devienne vide.
J'ai cherché sans succès un évènement permettant de faire ceci, peut être ne faut-il pas utiliser un TEdit.

Merci par avance de votre aide et bonne soirée!
Cordialement,
SSW66.

2 réponses

Messages postés
3874
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
14
Salut,

Pourquoi ne pas utiliser OnKeyDown ?

Quelque chose comme ça :

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    ShowMessage(Edit1.Text);
  end;
  Edit1.Clear;
end;
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
37
var
  Chaine : string;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then
  begin
    Chaine := Edit1.Text;
    Edit1.Clear;

  end;
end;