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;