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;