Событие OnDrawColumnCell для динамически созданного грида

[Pavka]

Здравствуйте! Подскажите новичку, пожалуйста, как для динамически созданного DBGrid вызвать событие OnDrawColumnCell

[Stilet]

Всмысле назначить?
Ну как обычно:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Grids, DBGrids;

type
  TForm1 = class(TForm)
    ...
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    ...
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
DBGrid1.OnDrawColumnCell:=DBGrid1DrawColumnCell;

end;


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
//
end;

end.

[Pavka]

У меня так не получается на стоке выделенной жирным цветом выдает ошибку "Неописанный идентификатор: 'DBGrd1DrawColumnCell", что я делаю не так как надо?
Вот часть моего кода:

unit Unit1;

interface

uses
  Windows, ... ;

type
  TForm1 = class(TForm)
    ...
    
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure EnterData;
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.EnterData;
var
  GrBox1: TGroupBox;
  DBGrd1: TDBGrid;

begin
  ...
  
  GrBox1 := TGroupBox.Create(Panel1);
  GrBox1.Parent := Panel1;
  ...

  DBGrd1 := TDBGrid.Create(GrBox1);
  DBGrd1.Parent := GrBox1;
  ...

  DBGrd1.OnDrawColumnCell := DBGrd1DrawColumnCell;
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
//
end;

end.

[mihali4]

Чтобы вам было понятнее, дополню коллегу Stilet.
Процедуры обработки событий для будущего компонента, который вы создадите динамически, вам нужно описать заранее.
Самый простой способ (для данного конкретного случая) - кинуть на форму грид и обычным способом создать для него все нужные обработчики.
Потом грид можно удалить. Но не забудьте описать его в самом начале модуля, после uses, например так:

type
TMyDBGrid = class(TDBGrid)

И соответствующим образом подправить в обработчиках имя грида.

[Pavka]

Благодарю Вас сердечно, таким образом получилось
Ну а любознательности ради как это сделать не кидая грида на форму?

[mihali4]

как это сделать не кидая грида на форму?

Так просто проще...
Иначе придется все процедуры прописывать ручками полностью - и в объявлениях, и собственно сами процедуры.

[Stilet]

Ну например так:

var DBGrid1:TDBGrid;
begin
 DBGrid1:= TDBGrid.Create(self);
 DBGrid1.Parent:=self;
 DBGrid1.OnDrawColumnCell:=DBGrid1DrawColumnCell;
 DBGrid1.Show;
end;

Учитывая что к нему еще DataSet нужно прицеплять.

[Pavka]

Ну в общем немного уяснил
Мой вопрос исчерпался еще раз всем спасибо