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

[DeddyH]

Weise einfach in der TTermin-Klasse dem Label das eigene OnMouseUp/OnMouseDown zu. Wann allerdings dafür der richtige Zeitpunkt ist, weiß ich nicht aus dem Hut, im Konstruktor ist es möglicherweise zu früh. Man könnte sich aber selbst eine Message posten, in dessen Behandlungsroutine man die Zuweisung erledigt, das sollte klappen.

[tofse]

Zitat von DeddyH:

Weise einfach in der TTermin-Klasse dem Label das eigene OnMouseUp/OnMouseDown zu.

Das habe ich mir auch schon überlegt, aber es soll ja der Code genutzt werden, der außerhalb von TTermin in onmousedown definiert wurde.
Es müsste also innerhalb der Klasse ein onmousedown auf die Klasse selber simuliert werden, wenn auf das Label geklickt wurde.

Funktioniert sowas ?

Edit:
klappt so

Code:

procedure TTermin.LabelMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
 begin
  Self.MouseDown(Button,Shift,1,1);
 end;

[DeddyH]

Wenn das OnMouseDown des Panels selbst (neu) zugewiesen wird, muss ja irgendein Event ausgelöst werden. Ich habe gerade nicht die Zeit, nachzuschauen, aber wenn man da rankommt, kann man das überschreiben und gleich die Zuweisung für das Label dort erledigen. Das dürfte die sauberste Lösung sein.

[edit] Oder so, das ist natürlich einfacher [/edit]

[stahli]

Man kann auch eine eigene Komponente ableiten und die Behandlung von HitTest überschreiben. Dann wird die Komponente quasi (unter den gewünschten Umständen) für die Maus "transparent".

Ich habe für meine Komponenten eine Eigenschaft "MouseTransparent" ein geführt, mit der ich das Verhalten steuern kann.