delphi7 中如何点击菜单项弹出新窗体

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了delphi7 中如何点击菜单项弹出新窗体相关的知识,希望对你有一定的参考价值。

在新窗体中我可以再进行编辑其他的控件

参考技术A delphi7 中如何点击菜单项弹出新窗体
假设你form1已完成,
另外新一个form2,
form2代码中应有下面内容
var
form2 : TForm2;
//下面是在form1中输入的代码
procedure TForm1.Button1Click(Sender: TObject);
begin
form2 := TForm2.Create(nil);
form2.Show;
//或者
form2.ShowModal;
form2.Free ;
end;
//如你是菜单中用的,procedure 后面或许是类N4Click而非Button1Click
另外,运行时,delphi7会自动提示加入代码
uses Unit1form2;
Unit1form2是我保存form2时用的文件名

以上是关于delphi7 中如何点击菜单项弹出新窗体的主要内容,如果未能解决你的问题,请参考以下文章

delphi 动态添加系统菜单

mac 当前位置打开终端

不要在点击时隐藏菜单/菜单项

vs2022窗体设计器在哪

如何自定义Windows窗体的系统菜单?

c# windows 窗体 如何 设置菜单的权限