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;