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;
内容全部来源于网络收集，如有侵权，请联系网站删除!