Überschreiben der Methode 'OnTitleClick'

[barnti]

Hallo,

ich beschäftige mich erst seit kurzer Zeit mit der Komponentenentwicklung. Habe mir schon einiges angeschaut, unter anderem das Tutorial von Sakura...

Leider weiß ich nicht wie ich ein Default-Verhalten für das Ereignis 'OnTitleClick' für meine Komponente implementiere. Hier mal der Code:

Delphi-Quellcode:

unit MyDBGrid;

interface

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

type
  TmyDBGrid = class (TDBGRID)
  published
    function OnTitleClick: TNotifyEvent; override;
  end;
  

procedure Register;

implementation

procedure Register;
begin
end;

{
********************************** TmyDBGrid ***********************************
}
{- TmyDBGrid.OnTitleClick }
function TmyDBGrid.OnTitleClick: TNotifyEvent;
begin
  showmessage('OnTitleClick!')
end;


end.

So scheint es nicht zu funktionieren. Wenn ich in meiner Anwendung ein Grid vom Typ 'TmyDBGrid' erzeuge klappt zwar die Darstellung, das Klicken auf die Titelzeile wird aber nicht beachtet...

Weiß jemand Rat?