在你的调用穿窗体写就可以啊
pro...
form1.show;
form2.showmodal;
...
当form1关闭时,form2就showmodal啦,而且,你的form1肯定不是主窗体,所以这样就可以啊
pro...
form1.show;
form2.showmodal;
...
当form1关闭时,form2就showmodal啦,而且,你的form1肯定不是主窗体,所以这样就可以啊
解决方案 »
- 请教这句话cht1.BackImage.Bitmap.Assign(Image1.Picture.Bitmap);是什么意思啊?
- image控件的图片范围外框总是填满窗体的属性是什么?
- 为什么3ds模型加载不上了?
- 关于STRINGGRID的高难问题
- ADOTable和Table一样吗?
- 怎样删除日期字段中日期为空的记录?
- 100分求一sql语句或者更好的解决办法。
- 请问要把数据显示出来,是用ListView好呢?还是用StringGrid好啊?
- idhttp 写了一个类似网页爬虫 发现内存一直再增大直到崩溃
- 当我累死的时候,请告诉我儿子,要上大学,不要当程序员
- SQL Server中的Case表达式问题.
- 用QuickRep中进行分组?
点form1的button1,form1.close; form2.showmodal;
点form2的button2, form2.close; form1.showmodal;
当form1关闭时调用,或用消息
主窗体MainForm,子窗体Form1和Form2. 将子窗体Form1.Button.ModalResult设为mrOK,不用在单击事件下写关闭窗体代码。
//主窗体Button1单击事件调用Form1和Form2
procedure TMainForm.Button1Click(Sender: TObject);
begin
Form1:=TForm1.Create(Self);
case Form1.ShowModal of
mrOK: Form2.Show;
mrCancel:;
end;
end;2:Form1在关闭后调用Form2
begin
Form2:=TForm2.Create(Application);
Form2.Show;
Self.Close;
end;
begin
Form2:=TForm2.Create(Application);
Form2.Show;
Self.Free;
end;
//
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1:=TForm1.Create(Application);
Form1.Show;
Self.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.CloseQuery;
form1.Hide;
form2.showModal;
end;
然后在表单2中执行下面操作
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.Close;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Show;
end;
再button事件中
form1.hide;
form2.showmodal;好用的,我试过了
你要showmodal就在你写的show的地方换成showmodal不就可以了?我这里刚做了测试什么也不需要改变就可以实现啊!
即form1.visible:=false;
form2.showmodal;form2.close;
form1.visible:=true;