怎样才能捕所有子控件的mousemove消息。

Question

我在一个窗体里动态的增加了一些控件。当我把Mouse移到子控件上时MouseMove消息
被子控件处理了。现在我要在窗体里处理这些MouseMove事件请问各位大哥怎么处理

Answer 1

在子控件上的OnMouseMove中给父控件发消息啊，如：procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  PostMessage(Handle, WM_MOUSEMOVE, 0, MakeLong(Button1.Left + X, Button1.Top + Y));
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Edit1.Text := IntToStr(X) + ',' + IntToStr(Y);
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————