当鼠标悬停在Delphi上时如何突出显示标签？

Question

我使用哪个活动？那我怎么说呢？

procedure TLogin.FormCreate(Sender: TObject);
begin
position:=poScreenCenter;
end;

procedure TLogin.lblHelpClick(Sender: TObject);
begin
Help.Show;
end;

end.

我在哪里使用代码突出显示？

Answer 1

我有以下解决方案：

1. 设置透明（标签属性）= False
2. 标签事件：
   • OnMouseEnter （将光标放在标签上）
   • OnMouseLeave （当光标位于标签外时）

代码如下：

// On Mouse Enter
procedure TMainForm.lblNameMouseEnter(Sender: TObject);
begin
    lblName.Color := clRed; // assign color that you want
end;

// On Mouse Leave
procedure TMainForm.lblNameMouseLeave(Sender: TObject);
begin
    lblName.Color := clBtnFace; // assign default color
end;

希望您能尽快解决此问题。