请教一个小程序 - 编程论坛

#2

ysp_19842006-01-05 03:53

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.
你试试，是不是你要求的。

#3

ysp_19842006-01-05 04:09

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

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

#4

wuyunshan2006-01-08 18:02

我怎么用不起来啊？

#5

wuyunshan2006-01-08 18:03

不过还是谢谢好心人

#6

pyrolater2006-01-11 00:58

只需加上以下消息及消息函数：
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;

#7

pyrolater2006-01-11 14:36

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