【结】子窗口中的数据无法取出。**

william

我在掉用子窗口中的数据时，程序不走到我需要的代码。
具体代码如下：
   with TChoiseCmpWindow.Create((DocView2.Doc as TTENANCYAPPLYINBD).Context) do
   begin
     try
       PType:='代理';
       //ShowModal;
       if ShowModal = Business.Forms.Controls.mrOk then
       begin
         DatasetApply.DataSet.Edit;
         DataSetApply.DataSet.FieldByName('ProxyCompanyID').AsString :=PAutoIn;
         DataSetApply.DataSet.FieldByName('ProxyCompanyName').AsString :=PCnName;
         DatasetApply.DataSet.ApplyUpdates;
       end;
       Free;
     finally
     end;
   end;

在子窗口的代码如下 ：
  if not DataSetCompanyDB.Active Then Exit;
  PCnName :=DataSetCompanyDB.FieldByName('CnName').Asstring;
  PAutoIn :=DataSetCompanyDB.FieldByName('autoin').AsString;
  ModalResult:=Business.Forms.Controls.mrOk;


但是在主窗口中 程序就走到if ShowModal = Business.Forms.Controls.mrOk then 这句 就不进去了，请问一下 我这么写代码 有问题伐?  为什么我明明返回的是Business.Forms.Controls.mrOk，就是不执行代码呢？
请问我要看ShowModal 的值怎么看法呢？

lixy

dialogs.showmessage(sysutils.inttostr(ShowModal ));

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=22550
http://bbs.justep.com/forum.php?mod=viewthread&tid=24476
等等，可以以“mrOk ”在bbs上搜索一下

william

我查了一下 不管我在子窗口中把 ModalResult:=Business.Forms.Controls.mrOk;
还是设成 ModalResult:=Business.Forms.Controls.mrCancle;
我用 dialogs.showmessage(sysutils.inttostr(ModalResult)); 看它的返回值都是 0 这是为什么？

jiahaiming

可以弹出窗体上，放个TBitBtn按钮
设置它的ModalResult属性为mrok或mrcancel
用这个按钮关闭弹出窗体就可以了

william

不行 放TBitBtn按钮上去 也没有用。
子窗口还是没有返回ModalResult值

jiahaiming

楼主，请参考我做的例子，

william

老大 我之前的代码 就是按照这样来写 ，可程序就是不返回值啊
现在的代码如下：
procedure TMAINFORM.DoCompany(Sender: TObject);
var
  ChoiseCmpWindow: TChoiseCmpWindow;
begin
   ChoiseCmpWindow:=TChoiseCmpWindow.Create((DocView2.Doc as TTENANCYAPPLYINBD).Context);
   ChoiseCmpWindow.PType:='客户';
     try
       if ChoiseCmpWindow.ShowModal = Business.Forms.Controls.mrOk then
       begin
         DatasetApply.DataSet.Edit;
         DataSetApply.DataSet.FieldByName('CompanyID').AsString :=ChoiseCmpWindow.DataSetCompanyDB.FieldByName('autoin').AsString;
         DataSetApply.DataSet.FieldByName('CompanyName').AsString :=ChoiseCmpWindow.DataSetCompanyDB.FieldByName('CnName').AsString;
         DatasetApply.DataSet.ApplyUpdates;
       end else
       begin
         DatasetApply.DataSet.Edit;
         DataSetApply.DataSet.FieldByName('CompanyID').AsString :=ChoiseCmpWindow.DataSetCompanyDB.FieldByName('autoin').AsString;
         DataSetApply.DataSet.FieldByName('CompanyName').AsString :=ChoiseCmpWindow.DataSetCompanyDB.FieldByName('CnName').AsString;
         DatasetApply.DataSet.ApplyUpdates;
       end;
     finally
       ChoiseCmpWindow.Free;
     end;
end;

不管我在子窗口中是用TBitBtn按钮 还是用代码的方式赋值 它主窗口就是执行ELSE里面的程序。这是为什么啊？

william

？？？？ 急等啊!!

jiahaiming

我得例子可以用吗？