问题：触发button1的click事件，一次动态生成6（如果是n个呢？）个label控件，包括每个label自身的onclick.
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;
如果你对触发button1的click事件，一次动态生成6（如果是n个呢？）个label控件，包括每个label自身的onclick.这个问题有好的意见或
建议，请留言
|
您当前的位置：
百科371 → 电脑/网络 → 其他编程 → 电脑/网络内容
退出登录 
减小字体
增大字体