Récupérer les infos RTTI sur les classes TBitmap,TStrings
Bonjour à tous!
Comment puis-je récupérer les infos sur les classes TBitmap,TStrings par l'intermédiaire des RTTI?
Tout marche impec sur des composants, ou sur des classes que je crée moi-même, mais pas sur les classes de delphi...
Voici ce que je fais: Ex avec un TPanel
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| procedure TForm1.Button1Click(Sender: TObject);
var
PData : PTypeData;
PListe : PPropList;
NbProps,
I : Integer;
begin
PData := GetTypeData(PTypeInfo(TPanel.ClassInfo));
NbProps := PData^.PropCount;
New(PListe);
GetPropInfos(PTypeInfo(TPanel.ClassInfo), PListe);
with ListBox1 do
begin
Clear;
for I := 0 to NbProps - 1 do
Items.Add(PListe^[I]^.Name);
end;
Dispose(PListe);
end; |
Voila...
Merci!
