TButton in TDBGrid, aber ButtonClick-Event geht nicht

[ake]

hallo,

<br><br>
ich habe eine kompo (dbgrid) erstellt, welche rechts ausgerichtet (align = alright)<br>
einen tbutton enthält. nun möchte ich auf das onclick-event des buttons<br>
zugreifen.<br>
TDBGridButton = class(TDBGrid)<br>
private<br>
FButton: TButton;<br>
FOnGridButtonClick: TNotifyEvent;<br>
protected<br>
procedure DoGridButtonClick(Sender: TObject);<br>
public<br>
constructor Create(AOwner: TComponent); override;<br>
published<br>
property OnGridButtonClick: TNotifyEvent read FOnGridButtonClick write<br> FOnGridButtonClick;<br>
end;<br>

<br>
procedure TDBGridButton.DoGridButtonClick(Sender: TObject);<br>
begin<br>
if Assigned(FOnGridButtonClick) then<br>
FOnGridButtonClick(Self);<br>
end;<br>
<br>
constructor TDBGridButton.Create(AOwner: TComponent);<br>
begin<br>
inherited;<br>
FButton := TButton.Create(Self);<br>
FButton.Parent := Self;<br>
FButton.Align := alRight;<br>
FButton.Show;<br>
FButton.OnClick := DoGridButtonClick;<br>
end;<br>
wer kann mir einen tip geben, warum das mit dem click nicht funktioniert?<br>
vielen dank im vorraus<br>
andik