[已解决]点击按钮打开新窗体

nealszgh1

大家好！
      
          我最近开始学习delphi，做练习程序的时候遇到一个难题，就是不知道怎么做点击按钮关闭原窗体，打开新窗体，我看书上有说明，但是不太理解。
创立的时候是单个窗体，怎么又多创建一个窗体。
          本想贴图的，但是选择不到本地图片，希望了解的大神能解疑下。

最佳答案

月排行榜 / 总排行榜

isdkz

2023-11-17 14:31:05

你可以使用以下的Delphi代码来实现点击按钮关闭原窗体，打开新窗体的功能：

// 在按钮的点击事件中添加以下代码
procedure TForm1.Button1Click(Sender: TObject);
begin
  // 关闭原窗体
  Form1.Close;
  
  // 创建并打开新窗体
  Form2 := TForm2.Create(Self);
  Form2.Show;
end;

这段代码中， Button1Click  是按钮的点击事件处理函数。在这个函数中，首先通过  Form1.Close  关闭原窗体，然后通过  Form2 := TForm2.Create(Self); Form2.Show;  创建并打开新窗体。 TForm2  是你要打开的新窗体的类名，你需要根据实际情况进行替换。

希望对你有所帮助！

跳转到最佳答案楼层

isdkz

你可以使用以下的Delphi代码来实现点击按钮关闭原窗体，打开新窗体的功能：

// 在按钮的点击事件中添加以下代码
procedure TForm1.Button1Click(Sender: TObject);
begin
  // 关闭原窗体
  Form1.Close;
  
  // 创建并打开新窗体
  Form2 := TForm2.Create(Self);
  Form2.Show;
end;

这段代码中， Button1Click  是按钮的点击事件处理函数。在这个函数中，首先通过  Form1.Close  关闭原窗体，然后通过  Form2 := TForm2.Create(Self); Form2.Show;  创建并打开新窗体。 TForm2  是你要打开的新窗体的类名，你需要根据实际情况进行替换。

希望对你有所帮助！

nealszgh1

谢谢了，我按上面的写了下：
procedure TForm2.LoginButtonClick(Sender: TObject);
begin

  if(USRW.Text='admin') and (PassWordW.Text='abc.123')
  then
    begin
    ShowM.Caption:='登录成功！！！' ;
    Form2.Close;
    Form3:= TForm2.Create(Self);
    Form3.Show;
    end
  else
    begin
    USRW.SetFocus;
    ShowM.Caption:='登录不成功！！！';
    end;
end;
语法没有问题，但是不知道点击了按钮后close了原窗体，但是新的窗体没有出现，不知道哪出现问题了。

nealszgh1

其实我的想法是定义一个新窗体，当点击按钮的时候就打开这个定义的窗体。但是不太明白如何引用定义的窗体，感觉只能建立一个窗体的样子。

up360

伙计，你跟着那个教程学的，能否分享下，我也是初学

nealszgh1

up360 发表于 2023-11-22 17:43
伙计，你跟着那个教程学的，能否分享下，我也是初学

你NEW一个VCL FORM  然后projects的options上FORM上设置available form 语句问题不太，主要设置这里执行的时候会有提个提示添加，你同意即可。