读书人

哪位帮小弟我写个小程序多谢

发布时间: 2013-01-11 11:57:35 作者: rapoo

哪位帮我写个小程序,谢谢
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;
这个?
[解决办法]
提供一个思路供参考:在case5166的基础上稍作修改

1、在程序第一次动态生成BUTTON后,同时在程序目录生成一个配置文件,例INI或XML都行
在配置文件中记录生成的BUTTON的一些信息。

2、程序下一次运行时,自动检查该配置文件是否存在,如果存在,则读取相关信息,
那么第一次生成的BUTTON及其事件就都可以执行了。

读书人网 >.NET

热点推荐