LABEL设透明只要设字体即可实现.
MOUSEMOVE事件
IF LABEL.FONT.color=CLred tehn
label.FONT.color:=CLblack
else
label.color:=CLred;
MOUSEMOVE事件
IF LABEL.FONT.color=CLred tehn
label.FONT.color:=CLblack
else
label.color:=CLred;
解决方案 »
- 用Delphi如何取得VC程序中的数据,VC有个数据列表但不是组件,只知道这个类名称是:AfxWnd42s
- Invalid compiler directive: 'VARPROPSETTER'的错误信息
- 哪里可以下到类似QQ面板那样的控件?就像超级保镖左边那个控件
- 在StringDrid中添加數據時,如果防止不能添加同樣的一行?
- 谁能给我提供发送手机短信源程序啊,解决就结帐!!
- speedButton与Button有什么区别!可不可以把caption的文字放在按钮的图片上,请指教!
- 老事新做:关于超星格式转化为图片。
- 怎么把数据添加到数据库里?
- 请各位高手帮我解释这段关于排序dbgrid.dataset 记录的代码,散分
- 我下了一个小东西,*.wdl,(可能是类似文本的东西)不知道用什么打开呀
- 请问有比较两个'2002-01-01 11:01:00'相隔多长的东东吗?谢谢~
- 谁能帮我,我叫他师傅!另送”大大的“分。
Y: Integer);
begin
Label1.Color :=你想要的颜色
end;
begin
label1.Color:=clred;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
label1.Color:=form1.Color;
end;