| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 622 人关注过本帖
标题:请教一个小程序
只看楼主 加入收藏
wuyunshan
Rank: 1
等 级:新手上路
帖 子:39
专家分:0
注 册:2005-11-27
收藏
 问题点数:0 回复次数:6 
请教一个小程序

就是当鼠标放在LABEL上的时候字变成红色鼠标不在LABEL上的时候字是原来的颜色,我做了当鼠标在LABEL上的时候只能变成红色但是鼠标不在LABEL上的时候它还是红色的!怎么才能鼠标放上去是红色不放上去是系统默认的颜色呢?

2005-12-30 11:34
ysp_1984
Rank: 5Rank: 5
等 级:贵宾
威 望:15
帖 子:371
专家分:0
注 册:2006-1-5
收藏
得分:0 

var
Form1: TForm1;
Mycolor: Tcolor;
implementation

{$R *.dfm}

procedure TForm1.formMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssleft in shift then
with label1 do
begin
if (X>left) and(X<(left+width))and (Y>top)
and(Y<(top+height)) then
begin
label1.Font.Color:=clred;
end
else
begin
label1.Font.Color:=Mycolor;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
Mycolor: Tcolor;
begin
Mycolor:= label1.Font.Color;
end;

end.
你试试,是不是你要求的。


心中的那片蓝天,永远为你而存在... ...
2006-01-05 03:53
ysp_1984
Rank: 5Rank: 5
等 级:贵宾
威 望:15
帖 子:371
专家分:0
注 册:2006-1-5
收藏
得分:0 

上面的procedure TForm1.FormCreate(Sender: TObject);
应该用下面的这个.


procedure TForm1.FormCreate(Sender: TObject);
begin
Mycolor:= label1.Font.Color;
end;


心中的那片蓝天,永远为你而存在... ...
2006-01-05 04:09
wuyunshan
Rank: 1
等 级:新手上路
帖 子:39
专家分:0
注 册:2005-11-27
收藏
得分:0 
我怎么用不起来啊?
2006-01-08 18:02
wuyunshan
Rank: 1
等 级:新手上路
帖 子:39
专家分:0
注 册:2005-11-27
收藏
得分:0 
不过还是谢谢好心人
2006-01-08 18:03
pyrolater
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-1-11
收藏
得分:0 
只需加上以下消息及消息函数:
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
with label1 do
begin
if ((x > 0) and (x < width)) and ((y > 0) and (y < height)) then
begin
font.Color := clRed;
end;
end;
end;
2006-01-11 00:58
pyrolater
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-1-11
收藏
得分:0 

前面的改一下更简单:
procedure TForm1.formMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.Font.Color := myColor;
end;

2006-01-11 14:36
快速回复:请教一个小程序
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.061464 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved