Определить событие OnDrawCell, в наследуемом TDrawGrid

Jeka-x87
Дата: 08.10.2019 22:18:36
Здравствуйте. Есть класс TXDrawGrid который наследуется от TDrawGrid.
Подскажите, как определить событие OnDrawCell.

Например при созданном DrawGrid на форме, автоматически можно создать эту процедуру два раза кликнув в инспекторе объектов на OnDrawCell,
а как быть в этом случае?

{ ----------------------- ЮНИТ С uXDrawGrid -----------------------------------}
unit uXDrawGrid;

interface

type

  TXDrawGrid = class(TDrawGrid)

   // нужно что-то типа этого
   // procedure OnDrawCell(Sender: TObject; ACol, ARow: integer; Rect: TRect; State: TGridDrawState);

  end;

implementation

// procedure TXDrawGrid.OnDrawCell(Sender: TObject; ACol, ARow: integer; Rect: TRect; State: TGridDrawState);
// begin
//   какие-то действия
// end;

end.


{--------------------ГЛАВНЫЙ ЮНИТ -----------------------}                                                                                                          
unit uCats;

interface

type
  TCatsForm = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CatsGrid: TXDrawGrid;

implementation

{$R *.dfm}

// СОЗДАЕМ TXDrawGrid;
procedure TCatsForm.FormCreate(Sender: TObject);
begin
  CatsGrid := TXDrawGrid.Create(Self);
end;

procedure TCatsForm.FormDestroy(Sender: TObject);
begin
  CatsGrid.Free;
end;

end.


Модератор: Как мне оформить свое сообщение?
DimaBr
Дата: 08.10.2019 23:31:15
TXDrawGrid = class(TDrawGrid)
  procedure DoDrawCell(Sender: TObject; ACol, ARow: integer; Rect: TRect; State: TGridDrawState);
  constructor Create(AOwner: TComponent);
end;

implementation

procedure TXDrawGrid.DoDrawCell(Sender: TObject; ACol, ARow: integer; Rect: TRect; State: TGridDrawState);
begin
// какие-то действия
end;

constructor TXDrawGrid.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  OnDrawCell := DoDrawCell;
end;

end.