如何做一个类似于优化大师左边的东西？当鼠标移上去后显示一种颜色 移开时又是另外一种颜色。并且有多个选项

Question

如何做一个类似于优化大师左边的东西？当鼠标移上去后显示一种颜色 移开时又是另外一种颜色。并且有多个选项？

Answer 1

在 Form 中重载 wndproc:
private
  procedure WndProc(var Message : TMessage); override;procedure TForm1.WndProc(var Message : TMessage);
begin
 if Message.LParam = Longint(Label1) then
 begin
  if (Message.Msg = CM_MOUSELEAVE) then
    Label1.Font.Color :=clred;
  if (Message.Msg = CM_MOUSEENTER) then
    Label1.Font.Color :=clgreen; end;
inherited WndProc(Message);end;