Delphi 10. Назначение обработчика события компонента в инспекторе объекта из подключенного юнита

@Dukalys · Регистрация: 13.02.2012

Author24 — интернет-сервис помощи студентам

Добрый день Уважаемые форумчане.
Прошу помощи для лучшего понимания процесса.

Решаю простую задачку удобного назначения обработчика событию TitleClick DBGrid.
Для удобства использования в нескольких формах создал отдельный unit (см. код).
Так как "стандартный" обработчик события является методом объекта, то нужно создать этот метод.
Один из вариантов без создания конкретных объектов-форм был подсмотрен в литературе.

Недостатком такого способа является то, что для назначения конкретному DBGrid обработчика события приходится задавать его программно, например в CreateForm (DBGrid.onTitleClick:= TTitleClickDBGrid.TitleClickSort;).

Вопрос в том, как можно "элегантно" сделать данное объявление метода чтобы его можно было назначить обработчику события прямо из инспектора объектов Delphi (10.2).

Код

...
interface
  type
    TTitleClickDBGrid = class class procedure TitleClickSort(Column: TColumn);
  end;

implementation

  class procedure TTitleClickDBGrid.TitleClickSort(Column: TColumn);
  begin
    //123
  end;
end.

@FIL · 11.06.2019, 15:56

Сообщение от Dukalys

Решаю простую задачку удобного назначения обработчика событию TitleClick DBGrid.

Речь идет об одном обработчике или о нескольких?

@Dukalys · 11.06.2019, 16:30 **[ТС]**

Пока только один обработчик TitleClick для рвзличных dbgrid.
Интересной перспективой конечно является создание нескольких обработчиков, думаю не более 3-5 событий.

@FIL · 11.06.2019, 16:37

Если только один, то можно просто переопределить метод TitleClick:

Delphi

type
  TDBGrid = class(Vcl.DBGrids.TDBGrid)
  protected
    procedure TitleClick(Column: TColumn); override;
  end;
 
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
  private
    { Private declarations }
 
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TDBGrid.TitleClick(Column: TColumn);
begin
  ShowMessage(Column.FieldName);
  inherited;
end;
 
end.

@northener · 12.06.2019, 02:38

Мне лично по душе и по естеству процедура

Delphi

1	DoTitleClick(Grid: TDBGrid, Column: TColumn);

@Пытливый · 12.06.2019, 12:12

Но такая процедура не несет информации о том куда кликнули и какой кнопкой мыши, а это ведь нужный функционал.

@northener · 14.06.2019, 02:40

Сообщение от Пытливый

Но такая процедура не несет информации о том куда кликнули и какой кнопкой мыши, а это ведь нужный функционал.

Кому нужный? И зачем?

@Whatson2 · 27.07.2019, 22:51

1) Вы можете в классе рядом с обработчиком по-умолчанию (создайте его, посмотрите где он появился - published секция) написать свои с такой же сигнатурой и, конечно, имплементировать их. Тогда они будут показываться в Object Inspector-e в ниспадающем списке.
2) Есть более гибкий (и более коварный) вариант - rtti - при этом не обязательно иметь обработчик по-умолчанию:

Delphi

var
    Method: TMethod;
    Component: TObject;
begin
    Component := Self.FindComponent('Имя_Вашей_DBGrid');
    Method.Data := Component;
    Method.Code := TForm1.'Имя_Вашего_Обработчика'; 
    SetMethodProp(Component, 'TitleClick', Method);
end;

@Dukalys 1816 / 1030 / 285 Регистрация: 13.02.2012 Сообщений: 3,339
		1
	Delphi 10. Назначение обработчика события компонента в инспекторе объекта из подключенного юнита 11.06.2019, 09:12. Показов 2257. Ответов 7 Метки нет (Все метки) Добрый день Уважаемые форумчане. Прошу помощи для лучшего понимания процесса. Решаю простую задачку удобного назначения обработчика событию TitleClick DBGrid. Для удобства использования в нескольких формах создал отдельный unit (см. код). Так как "стандартный" обработчик события является методом объекта, то нужно создать этот метод. Один из вариантов без создания конкретных объектов-форм был подсмотрен в литературе. Недостатком такого способа является то, что для назначения конкретному DBGrid обработчика события приходится задавать его программно, например в CreateForm (DBGrid.onTitleClick:= TTitleClickDBGrid.TitleClickSort;). Вопрос в том, как можно "элегантно" сделать данное объявление метода чтобы его можно было назначить обработчику события прямо из инспектора объектов Delphi (10.2). Код ... interface type TTitleClickDBGrid = class class procedure TitleClickSort(Column: TColumn); end; implementation class procedure TTitleClickDBGrid.TitleClickSort(Column: TColumn); begin //123 end; end. 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	11.06.2019, 15:56	2
	Сообщение от Dukalys Решаю простую задачку удобного назначения обработчика событию TitleClick DBGrid. Речь идет об одном обработчике или о нескольких? 0

@Dukalys 1816 / 1030 / 285 Регистрация: 13.02.2012 Сообщений: 3,339
	11.06.2019, 16:30 [ТС]	3
	Пока только один обработчик TitleClick для рвзличных dbgrid. Интересной перспективой конечно является создание нескольких обработчиков, думаю не более 3-5 событий. 0

@Пытливый 3586 / 2195 / 693 Регистрация: 29.05.2013 Сообщений: 9,377
	12.06.2019, 12:12	6
	Но такая процедура не несет информации о том куда кликнули и какой кнопкой мыши, а это ведь нужный функционал. 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,253
	14.06.2019, 02:40	7
	Сообщение от Пытливый Но такая процедура не несет информации о том куда кликнули и какой кнопкой мыши, а это ведь нужный функционал. Кому нужный? И зачем? 0

	27.07.2019, 22:51