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;