■■■ 纯 API 创建窗口和控件问题

叁哥_ 2003-05-25 08:31:57

各位大侠

请问如何在一个用纯API创建的窗体上创建一个 Shockwave 控件？

创建button和Edit就比较简单，用CreateWindow就可以搞定，可是创建非常规控件小弟就一巧不通了，请各位大侠一定拔刀相助！不胜感激~

...全文

78 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

jxc163 2003-07-22

打赏
举报

学习

dext 2003-07-22

打赏
举报

它是一个ActiveX,应该不能先创建吧。
是不是要注册后才能？

叁哥_ 2003-07-21

打赏
举报

叁哥_ 2003-05-29

打赏
举报

在声明一下：
偶不想用Delphi封装的TShockwaveFlash控件！

【问题未解决】
up

Billy_Chen28 2003-05-28

打赏
举报

如果是这样你就必定得先引用相关VCL单元和Shockwave所在控件的单元

叁哥_ 2003-05-28

打赏
举报

本来我就是要使用ShockwaveFlash控件，但我不想用Delphi封装后的TShockwaveFlash控件!

【问题未解决】
up

叁哥_ 2003-05-27

打赏
举报

【问题未解决】
up

c2y 2003-05-27

打赏
举报

使用ShockwaveFlash控件

叁哥_ 2003-05-26

打赏
举报

请查相关API函数 ??? 我昏~

我指的 shockwave 就是播放flash的控件，小弟愚钝，希望各位大侠能详细指点~ （：

叁哥_ 2003-05-26

打赏
举报

◆这是一段创建ShockwaveFLash控件的C代码：
//***********************************
HWND hWnd = ::CreateWindow("AtlAxWin", "ShockwaveFlash.ShockwaveFlash",
WS_CHILD|WS_VISIBLE, 0, 0, 500, 400, hParent, NULL,
::GetModuleHandle(NULL), NULL);
//***********************************

◆小弟将以上C代码改成如下Pascal代码：
//**********************************
var
HSWF :THandle;
begin
HSWF:=CreateWindow('AtlAxWin', 'ShockwaveFlash.ShockwaveFlash',
WS_CHILD or WS_VISIBLE, 0, 0, 500, 400,Handle, 0,
hInstance,nil);
ShowMessage(inttostr(HSWF));
end;
//**********************************

◆最终结果:
最后，运行代码，HSWF的值永远是 0,也就是始终无法创建 ShockwaveFlash 控件。
不知各位大侠是否有解决之良策，小弟洗耳恭听~ 不胜感激~

Billy_Chen28 2003-05-25