Dazu musst die Procedure
Titleclick überschrieben werden. Die Deklaration sieht so aus:
procedure TitleClick(Column: TColumn); dynamic;
Und somit:
Delphi-Quellcode:
TMyDBGrid = class(TDBGrid)
protected // TitleClick soll auch weiterhin protected bleiben
procedure TitleClick(Column: TColumn); override;
end;
procedure TMyDBGrid.TitleClick(Column: TColumn);
begin
// hier mache ich mein eigenes Ding
....
// und rufe dann das Standardverhalten auf
inherited;
end;
Würde man OnTitleclick im Konstruktor setzen, würde man dem Endbenutzer dieses Event wegnehmen.