问题描述
在 Delphi 中,如何创建一个从 TStringGrid 类派生的类,以便与网格单元格关联的 TObject 数组具有更具体的类型,例如用于指定单元格颜色的 TColor?
>解决方法
type
TStringColorGrid = class(TStringGrid)
private
function GetColor(ACol,ARow: Integer): TColor;
procedure SetColor(ACol,ARow: Integer; AValue: TColor);
public
property Colors[ACol,ARow: Integer]: TColor read GetColor write SetColor;
end;
function TStringColorGrid.GetColor(ACol,ARow: Integer): TColor;
begin
Result := TColor(inherited Objects[ACol,ARow]);
end;
procedure TStringColorGrid.SetColor(ACol,ARow: Integer; AValue: TColor);
begin
inherited Objects[ACol,ARow] := TObject(AValue);
end;
,
TStringGrid 可以为每个单元格保存一个 TObject。 TColor 不是从 TObject 继承的,所以它不起作用。
您可以将 TColor 转换为 TObject,但这将是一个容易出现未来问题的糟糕解决方案。并且这不适用于任何类型(仅那些最多具有指针大小的类型)。
最好的解决方案是将您的数据“装箱”到 TObject 中,并将此类对象的实例保存到 StringGrid 中。
TMyBoxingColorObject = class
Data : TColor; // Or any other datatype
end;
不要忘记根据需要创建和释放对象!
如果要装箱的类型很多,也可以使用泛型。