Moin Hansa,
die Zeile
EditObject := TEditObject (sgNr.Objects[ACol, ARow]);
ist nicht notwendig, da Du das Objekt auch direkt so ansprechen kannst:
Delphi-Quellcode:
procedure TfrmEin.ChangeEditObjectEditable (ACol, ARow : integer;
Editable : boolean);
begin
if sgNr.Objects[ACol, ARow] <> nil then begin
(sgNr.Objects[ACol, ARow] as TEditObject).Editable := Editable;
end;
end;
Wie sieht eigentlich die vollständige Deklaration Deines EditObjects aus?