Connaître un type à l'exécution

Bonjour,

Connaissez-vous un moyen de récupérer à l'exécution le nom du type d'un TControl, dans une chaîne de caractères ?

Exemple : Lafonction(Edit1) retournerait 'TEdit'

Merci
Martin

Bonjour,

Je ne sais pas si cela peut vous aider. J'utilise ce genre de procedure :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

function TFormX.CheckFieldsOK(Sender : TObject): Tedit; //Vérifie le remplissage des champs //Renvoi le premier Tedit vide [dont le nom commence par ED] var iLoc : integer; begin for iLoc := 0 to ComponentCount-1 do if (Components[iLoc] is TEdit) then if LeftStr(Tedit(Components[iLoc]).Name,2) = 'ED' then Result := Tedit(Components[iLoc]); end;

---

Cordialement. Gilles

Bonjour,

Sauf erreur ça retourne le nom du composant, pas son type.

Ce dont j'ai besoin est que ça retourne 'TEdit' pas l'adresse du composant, dans ton exemple.

Merci quand même.

Essaye ClassName.

Code:

---

Str:=Button1.ClassName; // Str <- TButton

---

Bon sang, mais c'était évident et je ne l'ai pas vu...

Merci !