【结贴】TForm DoModel 报错，麻烦帮看一下

zqc

在使用TForm类DoModel时报错，错误信息如下：
---------------------------
X3 Studio
---------------------------
运行系统初始化的时候发生异常：Cannot make a visible window modal

类型：EInvalidOperation。
---------------------------
确定   
---------------------------

调用代码：
procedure TSCJHXX.FIELD_JBXX_F_ProductTypeButtonClick(Sender: TObject);
const
   strTypeCode = '产品类型';
var
   lstKeys:TStrings;
   lstValues:TStrings;
   frmType:TFrmCPSelect;
   frmTitle:string;
   strSelTypes :string;
   strSelKeys:string;
begin
   lstKeys:= Business.System.TStringList.Create;
   lstValues:= Business.System.TStringList.Create;
   frmTitle := '产品类型选择';
   try
      frmType := TFrmCPSelect.Create(nil);
      //设置窗体标题
      frmType.SetTitle(frmTitle);
      //获取产品类型列表
      MyCommonResouse.TMyCommonResouse.GetProductType(strTypeCode,lstKeys,lstValues);
      frmType.SetSelectItems(lstKeys,lstValues);
      if  frmType.ShowModal = Business.Forms.Controls.mrOk then
      begin
         strSelTypes := frmType.SelectType;
         strSelKeys := frmType.SelectKey;
         DataSetJBXX.FieldByName('F_ProductType').AsString := strSelKeys;
      end;
   finally
      lstKeys.Free;
      lstValues.Free;
   end;
end;

shangxy

错误的代码停到那句上了？

zqc

停在
if  frmType.ShowModal = Business.Forms.Controls.mrOk then

shangxy

资源集中的窗体中是否设置过Visible属性？
http://www.baidu.com/s?bs=delphi ... lphi+showmodal+mrok

zqc

现在showmodal能出来不过我在对窗体的ModalResult赋值为mrOk后仍然不进入then后的语句

shangxy

编译一下看看，modalresult设置成mrok应该会进去的。

zqc

代码跟踪已经到self.ModalResult := mrOk;了，可判断时ModalResult仍然是2

zqc

ModalResult值是121922049，就好像没赋值一样

zqc

窗体ok按钮事件代码如下：
procedure TFrmCPSelect.btnOKClick(Sender: TObject);
var
  i:Integer;
begin
try
  if self.HasSelected then
  begin
     FSelectType := '';
     FSelectKey := '';
     for i:=0 to chklst.Count -1 do
     begin
        if chklst.Checked then
        begin
        if FSelectType ='' then
          begin
            FSelectType := chklst.Items.Strings;
            FSelectKey := lstKeys.Strings;
          end
          else
            begin
            FSelectType := FSelectType + ','+chklst.Items.Strings;
            FSelectKey := FSelectKey +','+lstKeys.Strings;
            end;
        end;
     end;
     self.ModalResult := mrOk;
  end;
//  else
// self.ModalResult := mrCancel;
finally
  lstKeys.Free;
  self.Close;
  end;
end;

lixy

self.Close;   这个去掉。