Überschreiben der Methode 'OnTitleClick'

[barnti]

Hi,

ich habe beide Versionen versucht, 'OnTitleClick' und auch 'TitleClick'. Beide funktionieren nicht. Hier noch mal mein jetziger Code:

Delphi-Quellcode:

unit MyDBGrid;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs;

type
  TmyDBGrid = class (TDBGrid)
  protected
    procedure TitleClick(Column: TColumn); override;
  end;
  

procedure Register;

implementation

procedure Register;
begin
end;

{
********************************** TmyDBGrid ***********************************
}
{- TmyDBGrid.TitleClick }
procedure TmyDBGrid.TitleClick(Column: TColumn);
begin
  showmessage('OnTitleClick!')
  inherited;
end;


end.

Klicke ich im laufenden Programm auf den Titel meines erzeugten Grids passiert nichts...