更改框架的父级后未触发鼠标事件

Question

我正在将框架的父级更改为运行时以将框架从一种形式移动到另一种形式。这工作正常，但之后我的组件不再接收鼠标事件。例如，CM_MOUSEENTER 和 CM_MOUSELEAVE 不会被触发。

Frame.Parent := SecondDisplayForm;
Frame.Align := alClient;
SecondDisplayForm.Show;

我不明白这个效果，我真的不知道要提供什么信息，所以如果你有提示，请在这里帮助我。

Answer 1

正如 NGLN 报告的那样，它在 D7 中有效，但在 BDS2006 中它是可重现的。我发现在cm_mouseenter之后和cm_mouseleave之前更改父级很重要，否则没有问题。问题出在controls.pas 我认为，也许这是一个错误。玩了一会儿，我发现如果您在更改父级之前Perform 发送wm_mouseleave 消息，一切都很好。

在我的示例代码中，我在 onclick 事件中更改了父级。

  TFrame3 = class(TFrame)
    procedure FrameClick(Sender: TObject);
  private
    procedure CMMouseEnter( var msg: TMessage ); message CM_MOUSEENTER;
    procedure CMMouseLeave( var msg: TMessage ); message CM_MOUSELEAVE;
  public
  end;

implementation

procedure TFrame3.CMMouseEnter(var msg: TMessage);
begin
  inherited;
  Color := clRed;
end;

procedure TFrame3.CMMouseLeave(var msg: TMessage);
begin
  inherited;
  Color := clBlue;
end;

procedure TFrame3.FrameClick(Sender: TObject);
begin
if parent = Form1 then
  begin
    Perform( WM_MOUSELEAVE, 0, 0 );
    parent := Form2;
    align := alClient;
    Form1.Hide;
    Form2.Show;
  end else
  begin
    Perform( WM_MOUSELEAVE, 0, 0 );
    parent := Form1;
    align := alClient;
    Form2.Hide;
    Form1.Show;
  end;
end;

我认为问题与 Controls.pas 中的 FMouseControl 有关，但没有正确调查。