看过一些程序利用网页开发界面,如何做?

Question

如何解决在主程序中点击网页的超链接可以打开窗口或者执行相关的操作
仅是打开网页不能执行操作呢?

Answer 1

可以再事件OnBeforeNavigate2中控制点击的链接

Answer 2

html
--------------
<a href="#close">×</a>
<a href="#mix">□</a>
<a href="#mini">－</a>main.pas
---------------
procedure Tmain.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
  var
  ev:tstringlist;
beginev:=tstringlist.Create;
ev.Delimiter:='#';
ev.DelimitedText:=url;
if ev.Count>1 then
begin
if ev.Strings[1]='mini' then WindowState:=wsMinimized;
if ev.Strings[1]='mix' then
  if WindowState = wsMaximized then
    WindowState:=wsNormal
  else
  WindowState:=wsMaximized;if ev.Strings[1]='close' then Close;
end;
end;