这个很简单,在Label的OnMoveMouse的事件中写:
以三个label为例!
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Color := clGreen;
end;procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Color := clGreen;
end;procedure TForm1.Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Color := clGreen;
end;
以三个label为例!
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Color := clGreen;
end;procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Color := clGreen;
end;procedure TForm1.Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Color := clGreen;
end;
解决方案 »
- 请问怎么去掉或控制cxgrid下拉菜单这一块,能否让他显示自己定义的条数
- 应该还是个挺容易的问题吧?帮帮忙啦,挺急的~
- hello
- 一个关于数据保存的问题。
- 急急急!为什么在我自己写的过程(或函数)里写:richedit1.lines.text之类的东西,编译的时候说richedit1没有定义?
- 我发现DELPHI现在是最热的论坛了,爽,散分200
- 各位大哥请问一下去那里下载pascal and object pascal(这两种语言不同吗)?
- 在Dephi中使用创建“DLL”和“ActiveX Library”两种方式产生的“DLL”有何区别?
- 怎么用delphi播放 dat文件
- 如何让DBGRID中的内容分页显示
- 请教关于表格的事情。
- 急 !谁用过AVICtrl或AVIWRiter,能指点一下吗?分数随意要(我的范围之内)!
begin
Sender.Font.Color:= clRed;
end;
然后再Label的onMouseMove中调用即可
begin
(Sender as TLabel).Font.Color:= clRed;
end;
在Label的onMouseMove中调用
如果用ApplicationEvents可能会更好一些
CM_MOUSEENTER 和 CM_MOUSELEAVEL事件
begin
(Sender as TLabel).Font.Color:= clBlack;
end;
在Label的parent控件的onMouseMove中调用