您的位置：首页 > 编程语言 > Delphi

Delphi:界面美化,用网页做界面

2011-07-25 12:06 399 查看

Delphi:界面美化,用网页做界面

用TWebBrowser控件

设置显示的网页,如果在本地则写全路径,放到窗体的create或show事件中

var
str:string;
begin
str:=ExtractFilePath(Application.ExeName)+test.html ; //程序目录下的test.html页
webbrowser1.Navigate(str);
End;


假设网页中有一个链接

控件的OnBeforeNavigate2事件

procedure TFmain.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if pos('good',URL)>0  then    //如果测试到界面发出的链接中有good,那个链接被点了
begin
showmessage('ok');    //则显示一个消息
cancel:=true;     //取消继续浏览网页,停在本页
end;
end;


　　

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息
标签： 
相关文章推荐
新的分享
章节导航