TControl.Caption - Oder doch nicht?

[CalganX]

Hi,
ich versuche gerade einem (per FindComponent) gefundem TControl klar zu machen, dass er einen Text anzuzeigen hat. Das sage ich ihm mit Hilfe von Caption. Lt. Hilfe ist das korrekt, allerdings meckert er ständig, die Caption-Eigenschaft wäre bei TControl nicht vorhanden:

Delphi-Quellcode:

        cmpTemp := (frmTemp.FindComponent(slTemp[i]) as TControl);
        sTemp := aIniFile.ReadString(slTemp[i], 'Caption', 'ERROR');
        cmpTemp.Caption := sTemp

Ideen?

Chris

[Keldorn]

Hallo

meine Hilfe sagt zu tcontrol.caption, daß die Eigenschaft nur protected ist.
eine Lösung wäre folgende
if cmptemp is Tbutton then Tbutton(cmpTemp).Caption := 'blabla'; Mfg Frank

[CalganX]

Hi,
so schlau ist meine Hilfe leider nicht.

Allerdings müsste ich dann für fünf verschiedene Komponenten was anderes Schreiben... nun gut. Macht nix. :\

Chris

[Keldorn]

Zitat von Chakotay1308:

Hi,
so schlau ist meine Hilfe leider nicht.

wenn du in der Hilfe auf der Tcontrol Eigenschaften gehst blendet sich die Auswahl ein. Dort sind einige Eigenschaften mit grünen oder gelben Kästchen oder blauen Pfeilen versehen. was grün (published) und gelb (protected) und blau (nur lesen) bedeutet steht in der Legende
so ist es zumindestens bei mir

Frank

[CalganX]

Hi,
wie gesagt: meine Hilfe hat das nicht drauf.

Trotzdem danke für deine Hilfe!

Chris

[Motzi]

Einfache Lösung:

Delphi-Quellcode:

type
  THookControl = class(TControl)
    public
      property Caption;
  end;

THookControl(cmpTemp).Caption := 'blablabla';

[Luckie]

Zitat von Chakotay1308:

Hi,
wie gesagt: meine Hilfe hat das nicht drauf.

´
Doch hat sie, es sein denn du hast ein anderes D6 Personal, wie ich.