TMemo鼠标悬停显示按钮遇闪烁问题 求解决方案及替代思路

问题根源 #

当前代码靠BringToFront/SendToBack切换按钮层级来控制显隐，当鼠标从TMemo移到按钮上时，TMemo会触发MouseLeave事件把按钮移到后台；此时按钮被Memo挡住，鼠标相当于离开了按钮区域，TMemo又会触发MouseEnter把按钮拉回前台——来回循环就导致了闪烁。

方案一：改用Visible属性+鼠标位置判断 #

放弃层级切换，直接控制按钮的Visible状态，同时在Memo的MouseLeave事件里检查鼠标是否真的离开了Memo和按钮的范围：

// 给两个按钮都加MouseEnter事件，确保鼠标移上去时按钮保持可见
procedure TfrmMain.btnAddMemoMouseEnter(Sender: TObject);
begin
  btnAddMemo.Visible := True;
  btnEditMemo.Visible := True;
end;

procedure TfrmMain.btnEditMemoMouseEnter(Sender: TObject);
begin
  btnAddMemo.Visible := True;
  btnEditMemo.Visible := True;
end;

procedure TfrmMain.memInfoMouseEnter(Sender: TObject);
begin
  if AktivArt then
  begin
    btnAddMemo.Visible := True;
    btnEditMemo.Visible := True;
  end;
end;

procedure TfrmMain.memInfoMouseLeave(Sender: TObject);
var
  MousePos: TPoint;
begin
  // 转成按钮本地坐标，判断鼠标是否在按钮区域内
  if not (btnAddMemo.ClientRect.Contains(btnAddMemo.ScreenToClient(Mouse.CursorPos)) or
          btnEditMemo.ClientRect.Contains(btnEditMemo.ScreenToClient(Mouse.CursorPos))) then
  begin
    btnAddMemo.Visible := False;
    btnEditMemo.Visible := False;
  end;
end;

方案二：用TTimer延迟隐藏按钮 #

加个短定时器，Memo触发MouseLeave时不立刻隐藏按钮，先启动定时器；如果在定时器触发前鼠标回到Memo或按钮上，就取消定时器，避免频繁切换：

步骤 #

1. 在窗体上拖一个TTimer组件（命名tmrHideButtons），设置Interval为200（可根据手感调整），Enabled设为False。

代码实现 #

procedure TfrmMain.memInfoMouseEnter(Sender: TObject);
begin
  tmrHideButtons.Enabled := False;
  if AktivArt then
  begin
    btnAddMemo.BringToFront;
    btnEditMemo.BringToFront;
  end;
end;

procedure TfrmMain.memInfoMouseLeave(Sender: TObject);
begin
  tmrHideButtons.Enabled := True;
end;

// 按钮鼠标进入时取消隐藏定时器
procedure TfrmMain.btnAddMemoMouseEnter(Sender: TObject);
begin
  tmrHideButtons.Enabled := False;
end;

procedure TfrmMain.btnEditMemoMouseEnter(Sender: TObject);
begin
  tmrHideButtons.Enabled := False;
end;

// 定时器触发时再确认鼠标位置，决定是否隐藏按钮
procedure TfrmMain.tmrHideButtonsTimer(Sender: TObject);
var
  MousePos: TPoint;
begin
  tmrHideButtons.Enabled := False;
  MousePos := ScreenToClient(Mouse.CursorPos);
  if not (memInfo.ClientRect.Contains(MousePos) or
          btnAddMemo.ClientRect.Contains(btnAddMemo.ScreenToClient(Mouse.CursorPos)) or
          btnEditMemo.ClientRect.Contains(btnEditMemo.ScreenToClient(Mouse.CursorPos))) then
  begin
    btnAddMemo.SendToBack;
    btnEditMemo.SendToBack;
  end;
end;

方案三：自定义带按钮的TMemo控件 #

如果想逻辑更紧凑，直接自定义一个TMemo子类，把按钮集成进去，统一处理鼠标事件，避免跨控件的冲突：

type
  TMemoWithButtons = class(TMemo)
  private
    FAddBtn: TButton;
    FEditBtn: TButton;
    procedure MemoMouseEnter(Sender: TObject);
    procedure MemoMouseLeave(Sender: TObject);
    procedure BtnMouseEnter(Sender: TObject);
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

constructor TMemoWithButtons.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  // 创建Add按钮
  FAddBtn := TButton.Create(Self);
  FAddBtn.Parent := Self;
  FAddBtn.Caption := 'Add';
  FAddBtn.Left := Width - FAddBtn.Width - 5;
  FAddBtn.Top := 5;
  FAddBtn.Visible := False;
  FAddBtn.OnMouseEnter := BtnMouseEnter;

  // 创建Edit按钮
  FEditBtn := TButton.Create(Self);
  FEditBtn.Parent := Self;
  FEditBtn.Caption := 'Edit';
  FEditBtn.Left := FAddBtn.Left - FEditBtn.Width - 5;
  FEditBtn.Top := 5;
  FEditBtn.Visible := False;
  FEditBtn.OnMouseEnter := BtnMouseEnter;

  // 绑定Memo自身的鼠标事件
  OnMouseEnter := MemoMouseEnter;
  OnMouseLeave := MemoMouseLeave;
end;

destructor TMemoWithButtons.Destroy;
begin
  FAddBtn.Free;
  FEditBtn.Free;
  inherited;
end;

procedure TMemoWithButtons.MemoMouseEnter(Sender: TObject);
begin
  // 这里可以加业务判断，比如原代码的AktivArt
  FAddBtn.Visible := True;
  FEditBtn.Visible := True;
end;

procedure TMemoWithButtons.MemoMouseLeave(Sender: TObject);
var
  MousePos: TPoint;
begin
  MousePos := ScreenToClient(Mouse.CursorPos);
  // 鼠标不在按钮上才隐藏
  if not (FAddBtn.ClientRect.Contains(FAddBtn.ScreenToClient(Mouse.CursorPos)) or
          FEditBtn.ClientRect.Contains(FEditBtn.ScreenToClient(Mouse.CursorPos))) then
  begin
    FAddBtn.Visible := False;
    FEditBtn.Visible := False;
  end;
end;

procedure TMemoWithButtons.BtnMouseEnter(Sender: TObject);
begin
  FAddBtn.Visible := True;
  FEditBtn.Visible := True;
end;

procedure TMemoWithButtons.CreateParams(var Params: TCreateParams);
begin
  inherited;
  // 确保子按钮能接收鼠标事件
  Params.ExStyle := Params.ExStyle or WS_EX_CONTROLPARENT;
end;

使用时直接把这个自定义控件拖到窗体上就行，不用再处理跨控件的事件逻辑。

内容的提问来源于stack exchange，提问作者Sjubussen