由哪位大侠作个在应用程序中内嵌浏览器的,给兄弟发一个例子! 看 delphi Demo呀, webbrowser程序。工程路径: demo\coolstuf\webbrower 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TechnoFantasy 能不能具体一点! TO mutan: 给分给钱都行! 我又忍不住上 看这个:unit main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw, mshtml; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Button1: TButton; Button2: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var urlnavigate : OleVariant; begin urlnavigate := Edit1.text; WebBrowser1.Navigate2(urlnavigate); end; procedure TForm1.Button2Click(Sender: TObject); var Document : IHtmlDocument2; Link : IHTMLElement; StrLinks : string; i : integer; begin Document := WebBrowser1.Document as IHTMlDocument2; for i := 0 to Document.Links.Length - 1 do begin Link := Document.Links.Item(i, 0) as IHTMLElement; StrLinks := Link.ToString + #13#10; ShowMessage(StrLinks); end; end; end. --- 我的意思是:如像超星一样MDI,任意切换...与主菜单的整合!我现在的一个实际问题是:由于我的MainMenu是用 ControlBar+ToolBar,当我的浏览器(子窗体)最大化之后,其本身的最小化,最大化,关闭按钮不见了!浏览器(子窗体)也是用ControlBar+ToolBar做的! 用IE控件或winsock控件不就行了 提前!TO peasnat: winsock???TO All: 没虾?! 提前!TO peasnat: winsock???TO All: 没虾?! Delphi 5 自带的 TWebBrowse 是基于 IE4 的内核的!现在要使用 IE5 的内核! 少来了,吃力不讨好,看看OICQ自带的那个浏览器,把我烦死了,有什么是非得自己的浏览器才做得到的? 用dbgrideh将Excel文件导入数据库中~~要怎么做?? 请问高手如何解析一个字符串 新注册ID,测试一下人气如何 奇怪!!!!! 请问那位大哥有邮件发送带验证的代码,给小弟一份,谢谢! delphi与execl 如何处理? 奇怪的问题 问一个问了N遍也没人回答的强烈重要问题!!! 怎么样才能从文件中提取应用文件的图标放入OLE控件中去? 如何将一个html文档嵌入到exe之中 如何使DBGrid中的PickList自动弹出,而不用点鼠标?
给分给钱都行!
unit main; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtrls, SHDocVw, mshtml; type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject);
var
urlnavigate : OleVariant;
begin
urlnavigate := Edit1.text;
WebBrowser1.Navigate2(urlnavigate);
end; procedure TForm1.Button2Click(Sender: TObject);
var
Document : IHtmlDocument2;
Link : IHTMLElement;
StrLinks : string;
i : integer; begin
Document := WebBrowser1.Document as IHTMlDocument2; for i := 0 to Document.Links.Length - 1 do
begin
Link := Document.Links.Item(i, 0) as IHTMLElement;
StrLinks := Link.ToString + #13#10;
ShowMessage(StrLinks);
end;
end; end.
---
MDI,任意切换...与主菜单的整合!
我现在的一个实际问题是:
由于我的MainMenu是用 ControlBar+ToolBar,
当我的浏览器(子窗体)最大化之后,其本身的
最小化,最大化,关闭按钮不见了!
浏览器(子窗体)也是用ControlBar+ToolBar做的!
TO peasnat:
winsock???
TO All:
没虾?!
TO peasnat:
winsock???
TO All:
没虾?!
现在要使用 IE5 的内核!