在DELPHI里如何实现一个内嵌程序,即把其他应用程序放在TFORM里执行,并不是弹出一个新窗口。

Guizhi 2004-10-30 09:31:00
rt
...全文
486 13 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
ehom 2004-11-22
  • 打赏
  • 举报
回复
>>我想实现的效果主要像IE在打开WORD、EXCEL等文件时的内嵌效果啊

OLE Automation,淘汰的不实用技术~~~

除了MS自己,用的也不是很广泛

新建工程向导里就有,Demo可以看到的\Demos\ActiveX\OleAuto\AutoServ

不过如果只是要把一个窗口嵌到另一个窗口中,SetParent足以~~~
postfxj 2004-11-22
  • 打赏
  • 举报
回复
procedure TForm1.Button2Click(Sender: TObject);
var
h: HWND;
begin
h := WIndows.FindWindow(nil, '你所要内嵌的程序的Caption');
Windows.SetParent(h, Self.Panel1.Handle);
Windows.MoveWindow(h, 0, 0, 200, 200, true);

end;
---------------------------------------------------
上面的代碼不行吧。
jiaai 2004-11-22
  • 打赏
  • 举报
回复
http://www.csdn.net/develop/List_Article.asp
chinasvip 2004-11-22
  • 打赏
  • 举报
回复
procedure TForm1.Button2Click(Sender: TObject);
var
h: HWND;
begin
h := WIndows.FindWindow(nil, '你所要内嵌的程序的Caption');
Windows.SetParent(h, Self.Panel1.Handle);
Windows.MoveWindow(h, 0, 0, 200, 200, true);

end;
king20151111 2004-11-19
  • 打赏
  • 举报
回复
这个应该用进程了,你先写一个主线程,其它子线程在主线程里运行
surpassable 2004-11-19
  • 打赏
  • 举报
回复
up~~~~~~~
jinjazz 2004-11-19
  • 打赏
  • 举报
回复
我强烈抗议...

对不起!~您没有权限进入此论坛,请点击 这里 返回.
jinjazz 2004-11-19
  • 打赏
  • 举报
回复
ksaiy(消失在人海)

我靠,被你的首页皇的头晕眼花....东西不少啊
Guizhi 2004-11-19
  • 打赏
  • 举报
回复
我想实现的效果主要像IE在打开WORD、EXCEL等文件时的内嵌效果啊,标题栏应该不显示啊。
Guizhi 2004-11-18
  • 打赏
  • 举报
回复
这个还没解决,再顶
ksaiy 2004-10-30
  • 打赏
  • 举报
回复
哦。我把它下载下来放到我的网页上了。去这里下载:

http://www.ksaiy.com/App.rar
lovefox_zoe 2004-10-30
  • 打赏
  • 举报
回复
楼上,你给的地址连接不了啊。
ksaiy 2004-10-30
  • 打赏
  • 举报
回复
去这里下载现成的吧:

http://www.delphibox.com/article.asp?articleid=768

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧