Ungültiger Ausdruck im Evaluator - Zurgiff auf CheckBox

[hirnstroem]

'loha Folks,

ich kreiere zur Laufzeit eine CheckBox:

Delphi-Quellcode:

Control := TIWCheckBox.Create(Self);
with TIWCheckBox(Control) do
begin
  if ACell.Text = 'Wahr' then
    Checked := True
  else if ACell.Text = 'Falsch' then
    Checked := False;
  ACell.Text := '';
  Name := 'cbEdit' + IntToStr(DataSetDevice_Key.RecNo);
  Caption := '';
  Editable := True;
end;

Dies geschieht im OnRenderCell Ereignis eines DBGrids.

Nun will ich auf die Eigenschaft "Checked" dieser ComboBox zugreifen, z.B. so:

Delphi-Quellcode:

    UserSession.ADODataSet_DevKeyTrans.FieldByName('LockedAccess').Value :=
      (FindComponent('cbEdit' + IntToStr(EditRecNo)) as TIWCheckBox).Checked;

Allerdings kann auf die Eigenschaft Checked einfach nicht zugegriffen werden. Setze ich einen Brakepoint auf dieser Zeile, so wird, wenn der Cursor auf Checked steht, angezeigt, dass sich ein "Ungültiger Ausdruck im Evaluator" befinde.

Dass mit FindComponent auch die entsprechende CheckBox gefunden wird steht fest. Was geht schief?

Grüsse
hirnstroem

[mkinzler]

Hast du mal versucht in eine lokale variable zwischenzuspeichern?

[hirnstroem]

Delphi-Quellcode:

var
  CheckBox: TIWCheckBox;
  Checked: Boolean;
begin
  CheckBox := (FindComponent('cbEdit' + IntToStr(EditRecNo)) as TIWCheckBox);
  Checked := CheckBox.Checked;
end;

So habe ich es versucht. CheckBox.Checked ist immer True, weshalb auch immer -.-

[hoika]

Hallo,

und wie sieht es beim Erzeugen der Checkbox aus.
Nimm dort auch eine lokale Variable
und setze 2 Breakpoints auf die Checked:= Zeilen.


Heiko