Bonjour,

j'essaie de reproduire l'exemple pour Delphi situé ici qui consiste à remplir automatiquement un RadioGroup avec les valeurs possibles de la propriété ViewStyle du contrôle ListView.

Dans cette partie,

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
Procedure TForm1.FormShow(Sender: TObject);
//List ListView VievStyle's in a Radio Button List
var
  vs : TViewStyle;
  vss : string;
begin
for vs in [Low(TViewStyle) .. High(TViewStyle)] do
  begin
    //get enum name as string
    vss := GetEnumName(TypeInfo(TViewStyle), integer(vs)) ;
 
    //add enum to a radio button list
    RadioGroup1.Items.AddObject(vss, TObject(vs));
  end;
end;
la ligne RadioGroup1.Items.AddObject(vss, TObject(vs)); est en erreur :

unit1.pas(47,39) Error: Illegal type conversion: "<enumeration type>" to "TObject"

Je ne vois pas comment passer cette erreur.