parent.$.modalDialog( 弹出新增页面 ，保存后关闭子页面，刷新父页面，怎么写在线急。

Posted 2023-04-26

参考技术A 获取到父窗口对象，重置一下父窗口对象的href属性为原页面就行

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