哪位帮我写个小程序,谢谢
1、动态生成一个button
2、点击button 显示“Hellow,guys”
3、退出程序,重新开启后,那个button还在原位置,并且可以响应onclick事件
大家帮个忙,最好能把代码贴上来,谢谢!
[解决办法]
这个?
procedure TForm1.FormCreate(Sender: TObject);
var btn:TButton;
begin
btn := Tbutton.Create(self);
btn.Parent := Self;
btn.Left := 100;
btn.Top := 100;
btn.Caption := '请点击';
btn.OnClick := Click;
end;
procedure TForm1.Click(Sender: TObject);
begin
Caption := 'Hellow,guys';
end;