Discussion :

[Andry]

Salut à tous.

Dans mes sources, j'ai besoin de savoir si un controle et de type ComboBox ou de ses descendant ou bien de type Edit ou ses derivées. Actuellement , je teste un a un le type comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Procedure TestandSetCaption(Controle : TControl; Capt : String);
begin
  If (Controle is TEdit) then
      (Controle as TEdit).text := Capt;
  If (Controle is TRzEdit) then
      (Controle as TRzEdit).text := Capt;
  If (Controle is TComboBox) then
      (Controle as TComboBox).text := Capt;
  If (Controle is TRzComboBox) then
      (Controle as TRzComboBox).text := Capt;
  If (Controle is TLabel) then
      (Controle as TLabel).Caption := capt;
end;

Comme vous pouvez en juger, ce code test le type du controle et defini le propriété Caption ou Text.
Alors si vous pouvez m'aider, j'ai besoin de savoir si controle et de type combo ou edit ou label et ses derivées.

Merci

[Pedro]

Salut
tu peux utiliser

Code :

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

1
2
3
 
if Control.InheritsFrom(TaClasse) then
...

[Andry]

Merci Pedro.

Je dois donc regarder les sources de composants pour savoir de quelle CustomCompo ils dérivent tous (ex les compos de la JVCL, TMS, Raize etc) .
Je vais creuser cette piste.

Merci

[Pedro]

Non pas les sources! Dans l'aide tu as la hiérarchie de chaque composant
N'oublie pas le tag [Résolu]

[Andry]

Ok.

Je vais voir ça.

Merci

[Nono40]

Pour les propriétés publiées ( Text et Caption le sont ) tu peux utiliser cette méthode : http://delphi.developpez.com/faq/?pa...roprieteparnom

[Andry]

C'est fabuleux.

Merci Nono.
Je vais mettra ça en pratique.

A+

[Andry]

J'ai trouver l'idée de Nono trop cool mais je me butte sur un pti problème
J'ai trouvez ceci sur le net

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
 
type TTypeKind = (
   tkUnknown,      Unknown property type.
   tkInteger,        Integer property.
   tkChar,            Char property.
   tkEnumeration, Enumeration type property.
   tkFloat,            Float property.
   tkSet,              Set property.
   tkMethod,        Method property.
   tkSString,        Shortstring property.
   tkLString,        Longstring property.
   tkAString,       Ansistring property.
   tkWString,       Widestring property.
   tkVariant,       Variant property.
   tkArray,         Array property.
   tkRecord,       Record property.
   tkInterface,    Interface property.
   tkClass,         Class property.
   tkObject,        Object property.
   tkWChar,       Widechar property.
   tkBool,           Boolean property.
   tkInt64,          Int64 property.
   tkQWord,       QWord property.
   tkDynArray,   Dynamical array property.
   tkInterfaceRaw   Raw interface property.
);

Mais Delphi ne connait pas tkBool.

Ou est le problème.

Merci

[Pedro]

Il ne reconnait pas QUE tkBool ou les autres aussi?
Si oui alors, il faut aller voir dans l'unité où sont déclarée ces constantes et vérifier la syntaxe...
Si non, alors il y a de fortes chances qu'il te faille rechercher l'unité dans laquelle se trouve ces constantes...
Bon dev'
Note: une astuce: ajoute le mot dans une unité standard (celle d'une form) puis laisse le curseur dessus, le hint te donnera l'unité...

[Andry]

J'utilise tkInteger, tkFloat, tkString, ça marche impec.
Seule tkBool qui n'est pas reconnu.

Merci

PS,
Effectrivement avec l'aide de Delphi, tkBool n'est pas inclu dans TypeKind.
Ca m'aurrais bien aidé mais je vais caster en integer.

A+