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

来源：百度知道 编辑：UC知道 时间：2024/05/18 02:16:58
在新窗体中我可以再进行编辑其他的控件

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时用的文件名