Sobald du Text in die Zellen schreibst (muss ja irgendwo passieren
), musst du dann auch das Object anhängen.
Und In TestForEdit sollte man dann wirklich abfragen ob ein Object angehängt ist....
Delphi-Quellcode:
function TForm1.TestForEdit(ACol, ARow : integer):boolean;
begin
if Stringgrid1.Objects[ACol, ARow] <> nil then begin
MyObject := TMyObject(Stringgrid1.Objects[ACol, ARow]);
result := MyObject.EditAble;
end
else
result := false;
end;