怎样调用这个过程???急冒烟啊@procedure TInterFaceControl.ComExecute(const Value: WideString);

怎样调用这个过程???急冒烟啊@procedure TInterFaceControl.ComExecute(const Value: WideString);(200分)<br />procedure TInterFaceControl.ComExecute(const Value: WideString);
var
R : RComExecute;
begin
R := GetExecuteXml(Value);
case R.OpenType of
etOpen:
begin
frmMain := TfrmMain.CreateParented(R.iHandle);//iHandle : Integer显示用句柄
frmMain.Left := 0;
frmMain.Top := 0;
frmMain.ChangeSkin(R.swSkinFileName);
frmMain.Show;
end;
etReload: ;
etSave: ;
etClose:
begin
if Assigned(frmMain) then
begin
frmMain.Close;
FreeAndNil(frmMain);
end;
end;
end;
end;
怎么调用他啊?? 我想在
function TInterFaceControl.RunMenu(value: Integer): WideString;
begin
Result := '';
case value of
10: 调用他????
end;
end;

function TInterFaceControl.RunMenu(value: Integer): WideString;
var
tmpStr: WideString;
begin
Result := '';
{ 导入tmpStr }
....
case value of
10: ComExecute(tmpStr); &lt;&lt;----
end;
end;

只是调用的话，下面的代码就可以了，
R : RComExecute;这个是你定义的什么？

function TInterFaceControl.RunMenu(value: Integer): WideString;
begin
Result := '';
case value of
10: ComExecute('aaaa');
end;
end;

那样是运行了@可是不能调出窗体

我这个程序主要是框架.COM和DLL 我不怎么会 啊?怎么办呢@

TO nicai_wgl,
tmpStr 是什么意思啊?是普通的字符串么??

看来你的花点时间

你得把代码贴全了。。。RComExecute。。。
替代 nicai_wgl回答你，是字符串。

帮你顶！

TExecuteType = (etOpen, etReload, etSave, etClose, etResize, etOpenFile,
etChangeSkin, etOpenChild, etCloseChild, etChangeSaveVideo, etHide,
etCreate); //执行类型

//组件执行参数记录
RComExecute = record
swFileName : WideString; //文件名称（打开、保存）
iMainHandle : Integer; //主调用窗体句柄
iHandle : Integer; //显示用句柄
swSkinFileName : WideString; //Skin文件名称
swLanguageFileName : WideString; //语言文件名称
swVideoSavePath : WideString; //视频保存路径
OpenType : TExecuteType; //打开类型
NewWidth, //新的宽度
NewHeight : Integer; //新的高度
bSaveVideo : Boolean; //是否保存视频
swMainAddress : WideString; //主机地址或IP
UserInfo : RLogin; //用户信息
swDataWebService : WideString; //数据库调用的WebService指向
end;

谢谢了@老兄@

10: ComExecute('aaaa'); 是可以运行.可是没有得到任何的结果!!

R := GetExecuteXml(Value);
这个函数呢?代码...它的返回值R.OpenType是不是 etOpen 呢?
建议你多设置几个断点,跟踪程序,看看是哪里出错了...
因为没有全套代码,别人很难看出有什么问题...

我要解决的问题主要是句柄显示.就 是让窗体在某个控件内显示