Question

怎样使鼠标放在Label上时,字体变色?我是低手,请赐教.谢谢

Answer 1

呵呵，如许色彩改不回来！用如下的办法吧，我已经测试经由过程了：varSetCap:boolean=false;OldColor:tcolor;//在label的OnMouserMove中 oldcolor:=label1.font.Color;if setcap= false then begin SetCapturecontrol(nil); label1.Font.Color:=clred; SetCapturecontrol(label1); setcap:=true; else end begin label1.Font.Color:=oldcolor; setcap:=false; end;鼠标移入时色彩变更，移出时恢复！

Answer 2

你在OnMouseMove的事伊闼橛上一些修改字体颜色的┞穁句就得了.procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin Label1.Font.Color := clRed;end;

Answer 3

感谢同慌绫乔的大方赞助：）如不雅大人人可以做个同伙的话，我的email：yx718@263.netePing不好意思啊，你的办法我早就试过了，但效不雅很不知足。所以把分给了kingron