将控件上的mousedown事件传输到其父控件

Question

面板上有一个标签。是否可以将mousedown事件转移到父控件，当标签上有mousedown事件时，它可以触发其父面板的mousedown事件？

Answer 1

试试这个：

type
  TMyControl = class(TControl);

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift:
    TShiftState; X, Y: Integer);
begin
  TMyControl(Label1.Parent).MouseDown(Button, Shift, X, Y);
end;

TMyControl声明用于访问TControl的protected-visibility MouseDown方法。

Answer 2

OnMouseActivate表单事件可以帮助您。 或者您可以处理消息WM_MOUSEACTIVATE和CM_MOUSEACTIVATE