展开全部
新建一个窗体
然后在按钮里面写上form2.show，就行了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
implementation
uses Unit2; //这边添加Unit2
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
form1.Visible :=false;
end;
这样就行了，form1是主窗体，调用子窗体然后不可见，如果要可见那么 form1.visible:=true;就可以了
uses Unit2; //这边添加Unit2
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
form1.Visible :=false;
end;
这样就行了，form1是主窗体，调用子窗体然后不可见，如果要可见那么 form1.visible:=true;就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
新建一个窗体
然后在按钮里面写上form2.show
就行了
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
file-->now--form 命名
再project-->project option 不要在main form 栏选中新建的窗体
再project-->project option 不要在main form 栏选中新建的窗体
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
showmessage就弹出一个子窗体了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（3）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
