关于mdi的问题? var frm :TFormApp;//FormApp就是你做好的FORMbegin frm :=TFormApp.Create(self); frm.ShowModal;end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure form1.button1click(sender:Tobject);beginform2.show;end; Application.CreateForm(TForm1, Form1); form1.show; 记得在主窗体中Uses "Form1"在的单元! 在use里加form2哦~~ 然后form2.show; //program 1:按下按钮后,被调出的窗体能被移动,主窗体也能被移动uses form2;procedure TForm1.Button1Click (Sender:TObject);begin form2.show;end;//program 2:按下按钮后,被调出的窗体能被移动,主窗体不能被移动uses form2;procedure TForm1.Button1Click (Sender:Tobject);begin form2.showmodal; //注意这一句!end; acqy正解,不过你可以用模板生成,到时候将模板的child改成你需要的样子就可以 大家帮忙看一下我写的设置ListBox的横向滚动条的小程序,为什么显示得不对呢? 请问谁能给出下面的具体算法 (排序算法问题!不能占用额外的大量空间) 在同一个程序中,两个过程会不会相互干扰? 缓存更新的几个问题? 服务器老是忙,大家讨论,散分 delphi程序分析问题 一个关于音乐文件的问题 不是高手不要来 送高分!!! 请教个问题 请问怎么在一个table里加图片记录,还有就是设置好了table的field后用右键create却出错? 谁有财会软件的原代码? 怎么把.iss文件转成.exe文件啊 请问怎样保存TRichEdit中的格式文本?
begin
form2.show;
end;
form1.show;
然后form2.show;
uses form2;
procedure TForm1.Button1Click (Sender:TObject);
begin
form2.show;
end;//program 2:按下按钮后,被调出的窗体能被移动,主窗体不能被移动
uses form2;
procedure TForm1.Button1Click (Sender:Tobject);
begin
form2.showmodal; //注意这一句!
end;