Question

这是我从TStringGrid类继承的类。我想创建一个将使用数据库中的数据填充的网格。但现在这只是一个简单的类存根：

unit clsTCustomStringGrid;

interface

    uses Grids, Dialogs;

    type
        TCustomStringGrid = class (TStringGrid)
            public
                procedure SayHello ();
        end;

implementation

    procedure TCustomStringGrid.SayHello ();
    begin
        ShowMessage('Hello World!');
        // procedure body
    end;

end.

这就是我的主要形式：

uses ...
     ...
    TCustomStringGrid; // here is where the compilation stops

    ...
    ...
    ...

    procedure TMyForm.FormShow (Sender: TObject);
    var
        MySG: TCustomStringGrid;
    begin
        MySG := TCustomStringGrid.Create(self);
        MySG.Left := 100;
        MySG.Top := 40;
        MySG.Parent := self;
        MySG.SayHello();
    end;

我得到的错误：

File not found: 'TCustomStringGrid.dcu'

请帮我弄清楚我做错了什么。

Answer 1

在uses子句中添加clsTCustomStringGrid，而不是TCustomStringGrid

Answer 2

您的类在unit clsTCustomStringGrid;中声明，但您的uses子句正在使用TCustomStringGrid（这是类名）。

更改您的使用条款：

uses ...
  ...
  clsCustomStringGrid; 
  ...

如何继承Delphi 7中的Grids类？

2 个答案: