点击按钮打开新窗体
大家好！我最近开始学习delphi，做练习程序的时候遇到一个难题，就是不知道怎么做点击按钮关闭原窗体，打开新窗体，我看书上有说明，但是不太理解。
创立的时候是单个窗体，怎么又多创建一个窗体。
本想贴图的，但是选择不到本地图片，希望了解的大神能解疑下。
你可以使用以下的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是你要打开的新窗体的类名，你需要根据实际情况进行替换。
希望对你有所帮助！ 谢谢了，我按上面的写了下：
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了原窗体，但是新的窗体没有出现，不知道哪出现问题了。 其实我的想法是定义一个新窗体，当点击按钮的时候就打开这个定义的窗体。但是不太明白如何引用定义的窗体，感觉只能建立一个窗体的样子。 伙计，你跟着那个教程学的，能否分享下，我也是初学 up360 发表于 2023-11-22 17:43
伙计，你跟着那个教程学的，能否分享下，我也是初学
你NEW一个VCL FORM然后projects的options上FORM上设置available form 语句问题不太，主要设置这里执行的时候会有提个提示添加，你同意即可。
页:
[1]