Verständnis-Frage TButtonControl

[PinkFloydFan]

Mahlzeit!

Wieso meckert mein Compiler "Undefinierter Bezeichner: 'Checked'" bei der folgender Funktion...
TButtonControl hat doch die Eigenschaft "Checked"

Wo mache ich da den Denkfehler??

bei "(TheComp as TCustomEdit).Text " funktionierts ja auch...

Delphi-Quellcode:

function WriteIni(IniFile:String;Section:String;Key:String;TheComp:TComponent):Boolean;
Var FIni:TInifile;
begin
  result:=false;
  Try
    FIni := TIniFile.Create(IniFile+'.Ini');
    If TheComp is TCustomEdit then
    begin
      FIni.WriteString(Section,Key,(TheComp as TCustomEdit).Text);
      result:=True;
    end;
    If TheComp is TButtonControl then
    begin
      FIni.WriteBool(Section,Key,(TheComp as TButtonControl).Checked);    <---  Hier !!!
      result:=True;
    end;
    FIni.Free;
  except
    result:=false;
  end;
end;

bin für alle Denk-Anstösse dankbar!

Stefan

[Thom]

TButtonControl.Checked ist protected.

[PinkFloydFan]

Hallo Thom!

Aha.. Woher weist du das???

Etwa weils in der OH nen gelbes kleines Viereck hat??
Mir waren diese Symbole schon immer etwas suspekt..

Kennst du ne möglichkeit das trotzdem abzufragen??

[PinkFloydFan]

hat sich erledigt.. Danke trotzdem!!

habs so gelöst, dass ich nen neuen Typ deklariert habe:

Delphi-Quellcode:

....
type  TMyButtonControl = class(TButtonControl);
...
...
...
function WriteIni(IniFile:String;Section:String;Key:String;TheComp:TComponent):Boolean;
Var FIni:TInifile;
begin
  result:=false;
  Try
    FIni := TIniFile.Create(IniFile+'.Ini');
    If TheComp is TCustomEdit then
    begin
      FIni.WriteString(Section,Key,(TheComp as TCustomEdit).Text);
      result:=True;
    end;
    If TheComp is TMyButtonControl then
    begin
      FIni.WriteBool(Section,Key,(TheComp as TMyButtonControl).Checked);
      result:=True;
    end;
    FIni.Free;
  except
    result:=false;
  end;
end;

nu funktionierts...

[Thom]

Ja, genau deshalb!

Ok, Beispiel hat sich erledigt. Genau so geht's!