请教怎样加一个按钮对象Button２ - Delphi论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 Delphi论坛』 → 请教怎样加一个按钮对象Button２

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 569 人关注过本帖

标题：请教怎样加一个按钮对象Button２

只看楼主加入收藏

fairy1331

等　级：新手上路
帖　子：63
专家分：0
注　册：2006-3-15

楼主

问题点数：0 回复次数：2

请教怎样加一个按钮对象Button２

就是按钮Button1的单击事件里定义一个Ｆorm对象。然后创建后的窗体对象的事件怎么来写呢？！还有在上面加具体的按钮对象。如：

procedure TForm1.Button1Click(Sender: TObject);

var

Form2:TForm;

begin

Form2:=TForm.create(nil);

Form2.ShowModal;

end;

就是说怎么样写Ｆorm2的事件呢，还有就是在Ｆorm2上面加一个按钮对象Button２。

菜鸟求救！！！！

搜索更多相关主题的帖子: 按钮　对象　

2006-05-26 16:15

coldwave

等　级：新手上路
帖　子：26
专家分：0
注　册：2005-10-3

第 2 楼

得分:0

procedure TForm1.Button1Click(Sender: TObject);
var
Form2:TForm;
Button2:Tbutton;
begin
Form2:=TForm.create(nil);
Button2:=Tbutton.create(self);
Form2.ShowModal;
end;
这样能生成button2。
你直接做好form2，在TForm1.Button1Click里面写Form2.ShowModal就行了，这多简单。

2006-05-28 13:27

coldwave

等　级：新手上路
帖　子：26
专家分：0
注　册：2005-10-3

第 3 楼

得分:0

Form2.ShowModal前面加上Button2.parent:=Form2;

2006-05-28 13:27

快速回复：请教怎样加一个按钮对象Button２