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 : 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;
Voila...
Merci!