经验交流：D7下为StringGrid实现一个特殊的需求

最近在工作中使用 TStringGrid 时遇到个比较特殊的需求：要求 Grid 中某些 Cell 只能用鼠标点击来控制其内容（开关切换），而其它的 Cell 则允许用户编辑内容。查看 D7 下的 TStringGrid，没有发现能直接实现该需求的办法，于是分析一下 VCL 源码，并通过以下简单的方法实现了该需求。现帖上来与大家交流。

具体的实现是在使用该 Grid 的窗体单元中，增加以下代码：
[code]  TEditShowEvent = procedure (var CanShow: Boolean) of object;

  // 增加了控制编辑框是否允许事件的 StringGrid
  TStringGrid = class(Grids.TStringGrid)
  private
    FOnEditShow: TEditShowEvent;
  protected
    function CanEditShow: Boolean; override;
  public
    property OnEditShow: TEditShowEvent read FOnEditShow write FOnEditShow;
  end;

implementation

{ TStringGrid }
function TStringGrid.CanEditShow: Boolean;
begin
  Result := inherited CanEditShow;
  if Assigned(FOnEditShow) then
    FOnEditShow(Result);
  if not Result then
    EditorMode := False;
end;[/code]

基本思路如下：
因为不希望注册新的 IDE 控件，所以在窗体中使用了同名类覆盖的小技巧，通过声明 TStringGrid = class(Grids.TStringGrid) 在窗体中为 VCL 的 TStringGrid 派生出一个同名的类，但是增加了一个 OnEditShow 事件。新的控件通过 override CanEditShow 方法来产生事件供用户使用。使用时，通过代码的方式手动为该 Grid 关联 OnEditShow 事件并在其中对 Cell 位置进行判断以解决原始需求。

补充：
这个新的 TStringGrid 类是跟 Form 的定义在同一个单元的，针对窗体上已经放置的 TStringGrid 控件有效。之所以使用这种方式，一是不想注册新的 IDE 控件，二是不想手工动态创建新定义的控件。

TStringGrid = class(Grids.TStringGrid)
这种思想有点儿意思。

的確有意思，想不到有這樣的做法，厲害

就是类的继承吧，Grids.TStringGrid也就是指定是Grids单元的TStringGrid类吧

这个方法也是从朋友那学来的，经常要对标准vcl控件做些修改，又嫌重新注册新控件太麻烦，就用这种方法了，还挺方便，呵呵。

学习ing:)

还不知道有TStringGrid = class(Grids.TStringGrid)这个方法呢。

刚来到这个地方，就学到了知识，仔细记下了，谢谢楼主的奉献！

只能是动态创建并使用了吧.

[quote]原帖由 [i]jjwwang[/i] 于 2008-6-26 15:33 发表
只能是动态创建并使用了吧. [/quote]
不只是动态创建使用，可以放在窗体上使用的。之所以不用新的类名而沿用 TStringGrid 的类名，就是为了在窗体上使用。窗体上放的是 vcl 标准的 TStringGrid，但由于单元中定义了新的 TStringGrid，所以编译后运行期窗体创建出来的是新的 TStringGrid 实例，当然扩展出来的属性和事件只能在运行期手工关联了。