Question

delphi动态生成多个label控件

触发button1的click事件，一次动态生成6（如果是n个呢？）个label控件，包括每个label自身的onclick.

Answer 1

procedure TForm1.MyOnClick(Sender: Tobject);
begin
ShowMessage((Sender as TLabel).Caption+' is clicked');
end;

procedure TForm1.btn1Click(Sender: TObject);
var
i,n:Integer;
lbl: TLabel;
begin
n:=6;
for i:=1 to n do
begin
lbl:= TLabel.Create(Application);
lbl.Parent := Self;
lbl.Caption := 'lbl'+IntToStr(i);
lbl.Top := 175;
lbl.Height := 75;
lbl.Width :=75 ;
lbl.Left := i* lbl.Width + 10;
lbl.OnClick := MyOnClick;
end;
end;