Label im Panel - onmousedown "durchreichen"

[tofse]

Hallo,
ich habe eine Klasse von TPanel abgeleitet:

Code:

TTermin = Class(TPanel)

Innerhalb der Klasse gibt es ein TLabel:

Code:

LabelTerminArt:TLabel;

Außerhalb der Klasse (im Hauptformular) verwende ich die Ereignisse onmousedown und onmouseup:

Code:

Termin:=TTermin.Create(self);
Termin.Parent:=self;
Termin.OnMouseDown:=ControlMouseDown;
Termin.OnMouseUp:=ControlMouseUp;

Das Problem ist nun, dass die Methoden nicht aufgerufen werden, wenn der Benutzer auf das Label klickt. Deshalb die Frage, ob man das onmousedown/-up auf das Label innerhalb meiner Klasse "durchreichen" kann, so als ob direkt auf das Panel geklickt wurde?

Was mich wundert, ich verwende auch ein Popupmenü für die Terminobjekte

Code:

Termin.PopupMenu:=PopupActionBarTermin;

Wird hier mit der re. Maustaste auf das Label geklickt, dann geht das Popupmenu auch auf, d.h. hier funktioniert das "durchreichen" ohne dass ich speziell was eingestellt hätte

Wieder mal Danke!
Christof