在 OnMouseEnter 中创建和销毁表单； Delphi 中的 OnMouseLeave 事件

Question

抱歉，如果之前已经提出过这样的问题，但我现在没有时间挖掘 stackoverflow db ...

所以，我有这段代码：

procedure TForm1.GraphPrevBtnMouseEnter(Sender: TObject);
var frm_PrevBtn : TForm;
begin
  GraphPrevBtn.Width := 75;
  if z = 0 then begin
    frm_PrevBtn := TForm.Create(nil);
    with frm_PrevBtn do begin
      Name := 'frm_PrevBtn';
      BorderStyle := bsNone;
      Position := poDesigned;
      Top := Form1.Top + GraphprevBtn.Top + (form1.Height - Form1.ClientHeight) - 3;
      Left := Form1.Left + GraphprevBtn.Left + 3;
      Width := GraphprevBtn.Width; Height := GraphprevBtn.Height; transparentColor := True; TransparentColorValue := clbtnFace;
      Show;
    end;
    GraphPrevBtn.Parent := frm_PrevBtn;
    if GetLastError = 0 then z := frm_prevBtn.GetHashCode;
  end;
end;

procedure TForm1.GraphPrevBtnMouseLeave(Sender: TObject);
    var frm_PrevBtn_H : THandle;
    begin
    // if form is created then- if mouse is under button then- if z = formshashcode ( form is on creatin stage )
      if not (FindVCLWindow(Mouse.CursorPos) = GraphPrevBtn) and ((FindControl(FindWindow('TForm','frm_PrevBtn')) as TForm).Visible = True) and (GraphPrevBtn.Parent = FindControl(FindWindow('TForm','frm_PrevBtn')) as TForm) then begin // if mouse is not under graphprevBtn
        ShowMessage(FindVCLWindow(Mouse.CursorPos).Name); // 
        if z = 112                                                       // then if form is created
        then begin
            GraphPrevBtn.Parent := Form1;
            GraphPrevBtn.bringtoFront;
            GraphPrevBtn.Top := 29; GraphPrevBtn.Left := 226;
            (FindControl(FindWindow('TForm','frm_PrevBtn')) as TForm).Free;
            if GetLastError = 0 then z := 0;
          end;
      end;
   end;

所以，我的愿望如下： 当我用鼠标输入这个 GraphPrevBtn 时，就会创建表单。至于创建，焦点从控制转向新的形式。由于焦点位于新表单，因此会触发 OnMouseLeave 事件。当事件被触发时，它应该破坏表单，但是仅当用户（NOT主动控制/焦点）实际上通过鼠标离开控制权。

现在发生的情况是，要么新表单根本没有被销毁，要么两个事件都进入无限循环（*frm_PrevBtn* 一次又一次地创建和销毁......） 。

最好的解决方案是什么？

我的想法是获取新的表单矩形并在鼠标位于该矩形内时进行检查。如果是，则执行允许 OnMouseLeave 事件，否则断开它......它会起作用吗？

我尝试了这些示例：

1. http://delphi.about .com/od/windowsshellapi/a/get-active-ctrl.htm

2. http://delphi.about.com/od/delphitips2010/qt/is-some-delphi-tcontrol-under-the-mouse.htm

   • 不走运。问题出在哪里……？

备注：global var z : byte;

PS 感谢您的反对票...将来使用此网站的巨大动力...

Answer 1

鼠标进入“GraphPrevBtn”，您在该按钮上创建一个表单。一旦此表单变得可见，由于鼠标不再位于“GraphPrevBtn”上，因此会触发“OnMouseLeave”。您销毁了新表单，现在鼠标再次位于按钮上，因此“OnMouseEnter”被触发，因此出现无限循环。

作为解决方案，您可以将表单处理代码移至 Form1 的“OnMouseEnter”：

procedure TForm1.FormMouseEnter(Sender: TObject);
begin
  if z = 112
  then begin
    GraphPrevBtn.Parent := Form1;
    [...]

..以及“GetLastError”是什么，它似乎完全无关。如果您要使用它，请在开始操作之前至少通过调用 GetLastError 或 SetLastError 将最后一个错误设置为“0”。

Answer 2

也许类似这样的东西会对您有所帮助：

var
  frm_PrevBtn : TForm = nil;

procedure TForm1.GraphPrevBtnMouseEnter(Sender: TObject); 
var
  P: TPoint;
begin 
  GraphPrevBtn.Width := 75; 
  if frm_PrevBtn = nil then begin 
    P := GraphPrevBtn.ClientOrigin;
    frm_PrevBtn := TForm.Create(nil);
    with frm_PrevBtn do begin
      BorderStyle := bsNone; 
      Position := poDesigned; 
      SetBounds(P.X, P.Y, GraphPrevBtn.Width, GraphPrevBtn.Height);
      TransparentColor := True;
      TransparentColorValue := clBtnFace; 
      GraphPrevBtn.Parent := frm_PrevBtn;
      GraphPrevBtn.Top := 0;
      GraphPrevBtn.Left := 0;
      Show; 
    end;
  end; 
end; 

procedure TForm1.GraphPrevBtnMouseLeave(Sender: TObject); 
begin 
  if (FindVCLWindow(Mouse.CursorPos) <> GraphPrevBtn) and (frm_PrevBtn <> nil) then begin
    GraphPrevBtn.Parent := Self;
    GraphPrevBtn.BringToFront; 
    GraphPrevBtn.Top := 29;
    GraphPrevBtn.Left := 226; 
    FreeAndNil(frm_PrevBtn);
  end; 
end; 

Answer 3

为什么不这样做：

1. MainForm.OnMouseOver：创建辅助表单。
2. secondaryForm.OnMouseOver：设置 FLAG_ON_SECONDARY。
3. secondaryForm.OnMouseLeave：清除 FLAG_ON_SECONDARY。
4. MainForm.OnMouseLeave：如果不是 FLAG_ON_SECONDARY，则销毁辅助窗体。

如果 secondaryForm.OnMouseOver 在 MainForm.OnMouseLeave 之后触发，这可能不起作用。好吧，想想类似的事情。另一个解决方案是启动一个计时器，如果鼠标既不在 Main 上也不在 secondaryForm 上，该计时器会销毁 secondaryForm 并禁用自身。