delphi动态创建组件的颜色

先建两个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;