第二次showmodal是这样的 function gIndGroupIn(sender:TComponent):boolean; var frmInDlg:TFSlcFile; mstrFName:string; begin result:=true; frmInDlg:=TFSlcFile.Create(sender); frmInDlg.miIsInput:=True; frmInDlg.Caption:='请选择引入文件路径和名称:' ; frmInDlg.ShowModal; if frmInDlg.ModalResult<>mrOK then begin …… end; end; 打开的界面上只有控件FilenameEdit1,就是点FilenameEdit浏览文件的时候出现这种情况。
function gIndGroupIn(sender:TComponent):boolean;
var
frmInDlg:TFSlcFile;
mstrFName:string;
begin
result:=true;
frmInDlg:=TFSlcFile.Create(sender);
frmInDlg.miIsInput:=True;
frmInDlg.Caption:='请选择引入文件路径和名称:' ;
frmInDlg.ShowModal;
if frmInDlg.ModalResult<>mrOK then
begin
……
end;
end;
打开的界面上只有控件FilenameEdit1,就是点FilenameEdit浏览文件的时候出现这种情况。