Как добавить дополнительные свойства объектам одного класса и сделать обработчик один на всех?

Question

[KTG]

Есть DBGrid на форме.
У него есть событие OnDataHintShow.
Я его описал. Но понял что этот код будет повторятся у многих Grid'ов, решил вынести в отдельную процедуру, и передавать туда параметры.
Когда описал еще пару обработчиков, понял что параметры остаются те же что и в предыдущем, но опять же код будет повторяться и нужно его вынести.

Поэтому создал класс:
TDynamicGrid = class(DBGridEh)

Описал ему свойства и процедуру, например ShowPanel (которая выскакивает на OnDataHintShow).

Возникли вопросы:
1. Как сделать, что бы Grid (DBGridEh) расположенный на форме, стал TDynamicGrid.
Он настроен, подогнал, оформлен, и не хотелось бы создавать программно и прописывать все параметры.

Если в описании формы, я у этого грида в коде меняю класс на нужный - Делфик ругается, говорит что неправильно определен, но ошибку можно проигнорировать. Тогда все срабатывает, но! Выскакивает ошибка "Exception EInvalidPointer"

2. Все равно приходиться заходить в грид и прописывать в событии OnDataHintShow вызов этой процедуры.
Можно ли как-то в классе прописать обработчик события, что бы он по умолчанию действовал для всех объектов этого класса?

unit DynamicGrid;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.UITypes, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, CompoMansEh, Vcl.ExtCtrls,
  PivotGridToolsEh, Data.DB, EhLibVCL, GridsEh, DBAxisGridsEh, DBVertGridsEh,
  Vcl.StdCtrls, Vcl.DBCtrls, Data.Win.ADODB, DBGridEhGrouping, ToolCtrlsEh,
  DBGridEhToolCtrls, DynVarsEh, DBGridEh, System.ImageList, Vcl.ImgList;


type
  TDynamicGrid = class(TDBGridEh)
    private
      PanelOnGrid: TPanel;
      HighlightColor: TColor;
      GlobalArrSList: TStringList;
    public
      property GridPanel : TPanel read PanelOnGrid write PanelOnGrid;
      property HColor: TColor read HighlightColor write HighlightColor;
      property GlobalArr: TStringList read GlobalArrSList write GlobalArrSList;

      procedure ShowPanel(Cell: TGridCoord);
      constructor Create(AOwner : TComponent); override;
      destructor Destroy; override;
 end;

implementation

procedure TDynamicGrid.ShowPanel(Cell: TGridCoord);
var
 rect: TRect;
 rectX, rectY : extended;
 Name, ID: string;
begin
  rect := self.CellRect(Cell.X, Cell.Y);

    rectX := Rect.TopLeft.X + Rect.Width;
    rectY := Rect.TopLeft.Y + Rect.Height/2 + Rect.Height - 1;

   if Cell.Y = self.Row then
    self.PanelOnGrid.Color := self.HColor
   else
    self.PanelOnGrid.Color := clWhite;

    self.PanelOnGrid.Left := trunc(rectX - self.PanelOnGrid.Width/2);
    self.PanelOnGrid.Top := trunc(rectY);

    self.PanelOnGrid.Visible := true;

    Name := self.DataSource.DataSet.FieldByName('Name').AsString;
      ID := self.DataSource.DataSet.FieldByName('ID').AsString;

    self.GlobalArr.Values['ID'] := ID;
    self.GlobalArr.Values['Name'] := Name;

    TForm(self.Parent).caption := 'Справочник: ' + Name;
end;

constructor TDynamicGrid.Create(AOwner: TComponent);
begin
  inherited;
end;

destructor TDynamicGrid.Destroy;
begin
  inherited;
end;

end.

Так вот. У DBGrid'а есть колонка, а у неё событие OnDataHintShow.
Делфик обработчик называется так: TForm.GridNameColumns0DataHintShow.
где 0 - это видимо номер колонки, GridName - имя Grid.
Хочу что бы автоматом это событие вызывало процедуру ShowPanel. Что бы не приходилось руками прописывать.

Answer 1

[KTG]

В итоге вышло вот так:

unit DynamicGrid;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.UITypes, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, CompoMansEh, Vcl.ExtCtrls,
  PivotGridToolsEh, Data.DB, EhLibVCL, GridsEh, DBAxisGridsEh, DBVertGridsEh,
  Vcl.StdCtrls, Vcl.DBCtrls, Data.Win.ADODB, DBGridEhGrouping, ToolCtrlsEh,
  DBGridEhToolCtrls, DynVarsEh, DBGridEh, System.ImageList, Vcl.ImgList;


type
  TDynamicGrid = class(TDBGridEh)
    private
      PanelOnGrid: TPanel ;
      HighlightColor: TColor;
      GlobalArrSList: TStringList;
      FieldForPanel: String;
      FieldForkey: String;
    public
      property FieldPanel : String read FieldForPanel write FieldForPanel;
      property FieldKey : String read FieldForKey write FieldForKey;
      property GridPanel : TPanel read PanelOnGrid write PanelOnGrid;
      property HColor: TColor read HighlightColor write HighlightColor;
      property GlobalArr: TStringList read GlobalArrSList write GlobalArrSList;

      procedure ShowPanel(Sender: TCustomDBGridEh;
                CursorPos: TPoint; Cell: TGridCoord; InCellCursorPos: TPoint;
                                Column: TColumnEh; var Params: TDBGridEhDataHintParams;
                                                var Processed: Boolean);

      constructor Create(AOwner : TComponent); override;
      destructor Destroy; override;
 end;

implementation

procedure TDynamicGrid.ShowPanel;
var
 ScrPt, GrdPt: TPoint;
 grCell: TGridCoord;
 rect: TRect;
 rectX, rectY : extended;
 Name, ID: string;
begin
  ScrPt := Mouse.CursorPos;
  GrdPt := self.ScreenToClient(ScrPt);

  grCell := self.MouseCoord(GrdPt.X, GrdPt.Y);

  rect := self.CellRect(grCell.X, grCell.Y);

    rectX := Rect.TopLeft.X + Rect.Width;
    rectY := Rect.TopLeft.Y + Rect.Height/2 + Rect.Height - 1;

  if grCell.Y = self.Row then
    self.PanelOnGrid.Color := self.HColor
  else
    self.PanelOnGrid.Color := clWhite;

    self.PanelOnGrid.Left := trunc(rectX - self.PanelOnGrid.Width/2);
    self.PanelOnGrid.Top := trunc(rectY);

    self.PanelOnGrid.Visible := true;

    Name := self.DataSource.DataSet.FieldByName(self.FieldPanel).AsString;
      ID := self.DataSource.DataSet.FieldByName(self.FieldKey).AsString;

    self.GlobalArr.Values[self.FieldKey] := ID;
    self.GlobalArr.Values[self.FieldPanel] := Name;

   TForm(self.Parent).caption := 'Справочник: ' + Name;
end;

constructor TDynamicGrid.Create(AOwner: TComponent);
begin
  inherited;
  self.OnDataHintShow := showpanel;
end;

destructor TDynamicGrid.Destroy;
begin
  inherited;
end;

end.

Answer 2

[kalapanga]

DBGridEh и всё про него ещё и в dfm-ке прописано. Можешь попробовать её руками отредактировать. Может прокатит.
Ну а по хорошему надо дооформить TDynamicGrid как компонент, чтобы с ним обычным образом в дизайнтайме работать.

Comments

[KTG]

ну странно вроде звучит... что бы к уже существующему классу допилить свойство и обработчик события нужно создавать новый компонент?

[kalapanga]

KTG: Ну почему странно. Сейчас с TDynamicGrid можно работать только в рантайме. Бывают задачи, когда этого вполне достаточно. Но чтобы его использовать и настраивать в дизайнтайме это должен быть установленный в системе компонент.
Вон DBGridEh тоже только какие-то свойства и методы к стандартному DBGrid добавляет.

[KTG]

kalapanga: А если не настраивать? Можно ли как то уже настроенный DBgrid с формы превратить в DynamicGrid? Дополнительные свойства DynamcGrid можно и в рантайме прописать.

[kalapanga]

KTG: Так я же написал, попробуй dfm-ку поправить. Но ругаться на проект, наверное, всё равно будет

[KTG]

kalapanga: Редактировать .dfm не помогло. Все равно при завершении вываливается ошибка "InvalidPointer".
Компонент для design-time создавать из-за пары свойств, все равно не понравилось. Тем более потом бы пришлось его таскать везде за собой и устанавливать. Потому начал копать дальше.

Нашел простой вариант:

type
  TDBgridEh = class(TDynamicGrid)
end;

[KTG]

осталось решить вторую проблему, событие колонки OnDataHintShow по умолчанию вызывающее ShowPanel

[kalapanga]

KTG: То есть сначала TDynamicGrid = class(TDBGridEh), а потом TDBgridEh = class(TDynamicGrid) ???
И подобные чудеса наследования не смущают? Даже если это как-то работает...

[KTG]

kalapanga: все верно. Оно работает. В итоге можно не таскать за собой компонент, а только описание класса, которым я в runtime подменяю класс уже созданных объектов в designtime.
Просто может я не совсем понимаю все внутренние процессы, но на первый взгляд не вижу в этом ничего плохого.

[instigator21]

Нашел простой вариант:
type
TDBgridEh = class(TDynamicGrid)
end;

Как это вообще заработало?
Нужно не лениться, и сделать нормальный компонент.