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 TPanelVoila...
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 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;
Merci!
Partager