procedure TForm1.Button1Click
var Button2:TButton;
begin
Button2:=TButton.Create(nil);
Button2.Width:=100;
Button2.Heigth:=100;
Button2.Left:=.
Button2.Top:
Button2.Parent:=Form1;
Button2.OnClick:=Button1Click
Button2.Visible:=True;
end;
var Button2:TButton;
begin
Button2:=TButton.Create(nil);
Button2.Width:=100;
Button2.Heigth:=100;
Button2.Left:=.
Button2.Top:
Button2.Parent:=Form1;
Button2.OnClick:=Button1Click
Button2.Visible:=True;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货