新建一个窗体
然后在按钮里面写上form2.show,就行了。
implementation
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 栏选中新建的窗体