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.. :shock: 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! :thumb:

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