erweiterte Komponente - kein Zugriff auf neue Properties

[gfjs]

Ich habe eine Komponente (Label) wie folgt (Kurzform) erweitert:

Delphi-Quellcode:

TMyLabel = class(System.Windows.Forms.&Label)
private
  FVar1 : integer;
  FVar2 : string;
public
  constructor Create; overload;
  destructor Destroy; override;
  property Var1 : integer read FVar1 write FVar2;
  property Var2 : string read FVar2 write FVar2;
end;

In Form.Create habe ich eine Reihe von Labels erzeugt und die Eigenschaften gesetzt. Ohne dass der Compile gemeckert hätte, konnte ich auch den neuen Properties Werte zuweisen.

In einer weiteren Procedur versuche ich nun mit

Delphi-Quellcode:

for i := 0 to Panel1.Controls.Count - 1 do
begin
  Panel1.Controls[i].Var1 := 10;
  Panel1.Controls[i].Var2 := '10:00';
end;

vergeblich auf die neuen Properites zuzugreifen - ich habe nur Zugriff auf die Standard-Properties. Was habe ich falsch gemacht?

Gruß Jürgen.

[Christian Seehase]

Moin Jürgen,

Du hast vergessen den Typ des Controls mit anzugeben:

(Panel1.Controls[i] as TMyLabel).Var1 := 10; Ausserdem solltest Du vor dem Zugriff sicherheitshalber auch prüfen, ob das jeweilige Control auch den Typ hat:

if (Panel1.Controls[i] is TMyLabel then ... (Ich hoffe in .NET erfolgt der TypeCast auch so )

[gfjs]

Danke!

Ich hatte
(Panel1.Controls[i] as System.Windows.Forms.&Label).Var1 := 10; geschrieben. Klar, dass ich da nur die Properties des Standard-Labels bekomme.