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...