Question

delphi如何在进入另一个form后执行完再回到原先的主窗口呢？

现在我有两个form，一个是主窗口Main还有一个是childMain,在Main中点击按钮，使用 with childMain.create(self) do if showmodel=mrok then showdata;进入childMain的窗口，这个子窗口有一个stringgrd控件，主要是查一些数据的，然后查询完后也显示在了stringgrid中，现在我想使用这个stringgrid中的数据，却发现当跳到那个子窗口时就不会再回到Main中了，就一直显示那个childMain。注意：那个childMain我不要使用按钮，那个方法我也会。请大家指教，如何使程序能回到Main中，并且childMain中的数据还存在在那个stringgird中，谢谢了~
难道没人会吗？还是我说的不清楚~~

Answer 1

childMain显示了以后，你要在什么情况下关闭这个childMain（比如几秒钟后）

追问

显示后他会自动执行查询语句，然后将查询出来的结果卸载stringgrid中，然后childMain就要消失，回到程序中继续往下执行，在Main中会用到这个stringgrid中的数据。我现在遇到的情况就是在调用了showmodel后显示了childMain，stringgrid中也写好了数据了，可就是一直显示那个窗口，程序无法往下执行下去了

追答

你这好绕啊，那就按你的思路来吧

第一步：
var
form: Tchildform; // 定义这个变量,下面就可以通过这个变量来引用stringgrid了
begin
form := Tchildform.Create(self);
if form.ShowModal = mrok then
begin
//form.StringGrid1...
if form.StringGrid1.Cells[0,0] = '' then // 使用 stringgrid
ShowMessage('123');
end;

Form.Free; //用完要释放内存
end;

第二步：
在childmain里面，不知道你所说的自动查询语句查询是怎么触发的执行的（OnShow还是OnCreate，还是其他什么的事件）

如果是OnShow或者OnCreate；直接是close不掉的，你可以加一个Timer，在查询执行完后，再开启计时器。计时器里面调用 窗体的Close方法。

然后再OnClose事件里面，添加
ModalResult := mrOk;