妳在OnMouseMove的事件中加上一些修改字体顏色的語句就得了.
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Color := clRed;
end;
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Color := clRed;
end;
解决方案 »
- delphi Stringgrid初始化问题。
- 登陆窗口进去后,如何只关闭登陆窗口而保留二级窗口!
- 如何屏蔽钩子?
- 在dbgrid1中如果想在指定的行前加上个标识要怎么做
- 我想做一个主窗体,通过菜单打开子窗体,那么如何让子窗体最大化不超过主窗体?
- 刚开始做报表,想参考几个例子 请各位帮忙!!
- 如何选种资源管理器中某个文件
- TMediaPlayer同时播放多个文件问题
- 关于delphi最好的工具与最好的书.
- 什么工具可以检测程序的内存泄露
- Delphi的程序,所有的Form都在App中初始化是创建(Application.CreateForm),这样岂不是很耗资源,想在用到时Create,在关闭时释放资源,各位有什么方法???
- 如果用int 3取得0级特权?
var
SetCap:boolean=false;
OldColor:tcolor;//在label的OnMouserMove中
if setcap= false then
begin
oldcolor:=label1.font.Color;
label1.Font.Color:=clred;
SetCapturecontrol(label1);
setcap:=true;
end
else
begin
label1.Font.Color:=oldcolor;
SetCapturecontrol(nil);
setcap:=false;
end;
鼠标移入时颜色变化,移出时恢复!
ePing不好意思啊,你的方法我早就试过了,但效果很不满意。
所以把分给了kingron
如果大家可以做个朋友的话,我的email:[email protected]