PHP DM Gate v0.9 » kol webbrowser OnBeforeNavigate2 <span class="vd">[Delphi, kol]</span>

joeI (08.01.19 18:53) [0]

I would like to know how to attach a procedure to the OnBeforeNavigate2 in a kol webbrowser app (KOLSHDocVw).
I have tried this

procedure b4nav(Sender: TObject;const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,Headers: OleVariant; var Cancel: WordBool);
begin
end;
with
wb.OnBeforeNavigate2:=twebbrowserbeforenavigate2(makemethod(nil,b4nav));
and
wb.OnBeforeNavigate2:=twebbrowserbeforenavigate2(tonevent(makemethod(nil,b4nav(d [i],d[i],d[i].locationurl,0,nil,nil,nil,false))));

thanks

<Цитата>
Дмитрий К © (08.01.19 19:29) [1]

procedure b4nav(Dummy: Pointer; Sender: ...

wb.OnBeforeNavigate2:=twebbrowserbeforenavigate2(makemethod(nil,@b4nav));

http://kolmck.000webhostapp.com/e_faq.htm#how_to_assign_a_regular

<Цитата>
joeI (08.01.19 20:21) [2]

excellent thank you

<Цитата>