Die Typvereinbarung ist zwar vorhanden, sie wird aber nicht genutzt.
Delphi-Quellcode:
type
TGridCracker = class(TCustomGrid);
procedure DeleteRow(sg: TStringGrid; index: Integer);
var
iRow: Integer;
begin
with TGridCracker(sg) do // <--- so sollte es aussehen!
begin
iRow := Row;
DeleteRow(index);
if iRow < RowCount
then Row := iRow
else Row := Pred(RowCount);
end;
end;
Gruß Hawkeye