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,
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 :
Cordialement. Gilles
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
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 : Sélectionner tout - Visualiser dans une fenêtre à part Str:=Button1.ClassName; // Str <- TButton
Bon sang, mais c'était évident et je ne l'ai pas vu...
Merci !
Partager