delphi动态创建组件的颜色

最新推荐文章于 2022-08-10 12:03:37 发布

weixin_30751947

最新推荐文章于 2022-08-10 12:03:37 发布

阅读量96

点赞数

原文链接：http://www.cnblogs.com/delphi7456/archive/2010/10/27/1862080.html

版权

先建两个procedure,一个把label的颜色改为红色,一个把label的颜色变为灰色.
动态创建label的时候调用就可以了。

lb.OnMouseEnter:=mset;
lb.OnMouseLeave:=mslv;

下面是完整代码:

procedure TForm1.mset(Sender:TObject);
begin
  TLabel(Sender).Color:=clRed;
end;

procedure TForm1.mslv(Sender:TObject);
begin
  TLabel(Sender).Color:=clBtnFace;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i:integer;
  lb:TLabel;
begin
  for i:=1 to 3 do
  begin
    lb:=TLabel.Create(self);
    lb.Parent :=Panel1;
    lb.Caption :='Label'+inttostr(i);
    lb.Top:=lb.Height*i;
    lb.OnMouseEnter:=mset;
    lb.OnMouseLeave:=mslv
  end;
end;

转载于:https://www.cnblogs.com/delphi7456/archive/2010/10/27/1862080.html