浏览代码

* Some logging

michael 4 年之前
父节点
当前提交
fe057842c4
共有 1 个文件被更改,包括 11 次插入2 次删除
  1. 11 2
      demo/router/frmdemo.pp

+ 11 - 2
demo/router/frmdemo.pp

@@ -74,7 +74,7 @@ begin
       Link:=TJSHTMLElement(document.createElement('a'));
       Link:=TJSHTMLElement(document.createElement('a'));
       link['href']:=MakeLink(i,True);
       link['href']:=MakeLink(i,True);
       link.innerHTML:='Go to form <span class="badge">'+IntToStr(i)+'</span>';
       link.innerHTML:='Go to form <span class="badge">'+IntToStr(i)+'</span>';
-      if (Router.HistoryKind=hkHTML5) then
+      if (Router.HistoryKind<>hkHTML5) then
         Link.onclick:=@DoLinkClick;
         Link.onclick:=@DoLinkClick;
       adiv.appendChild(link);
       adiv.appendChild(link);
       end;
       end;
@@ -94,8 +94,17 @@ begin
 end;
 end;
 
 
 function TDemoForm.DoLinkClick(aEvent: TJSMouseEvent): boolean;
 function TDemoForm.DoLinkClick(aEvent: TJSMouseEvent): boolean;
+
+Var
+  URL : String;
+  p: Integer;
+
 begin
 begin
-  Router.Push(String(aEvent.target['href']));
+  URL:=String(aEvent.target['href']);
+  P:=Pos('#',URL);
+  URL:=Copy(URL,P+1,Length(URL)-P);
+  Writeln('URL :',URL);
+  Router.Push(URL);
 end;
 end;
 
 
 end.
 end.