哪裡可以找到新版的 MSHTML.pas ? |
尚未結案
|
KFC123_60201
一般會員 ![]() ![]() 發表:58 回覆:18 積分:15 註冊:2006-07-25 發送簡訊給我 |
|
rainxie
一般會員 ![]() ![]() 發表:20 回覆:27 積分:14 註冊:2008-03-13 發送簡訊給我 |
控件的事件辅助类概述对Ole的方便地多,比如想用IE拖到窗体上,设置相关属性,处理相关事件,一切和其他控件没有什么区别。但是使用过程中,我们会发现一个问题,拿TWebBrowser事件,如果我们想在连接错误的时候做一些事情,比如要用一个更漂亮的网页来代替IE 控件的版本,越高版本功能越多,比如错误事件是在IE 6显然是用更低版本的IE提供了更多的事件,你就必须重新生成控件了。 代码 控件的事件辅助类 * * by linzhenqun 用法: 1TOleCtrlEventHelper 、结束时:断开连接点,消毁 { IUnknown } function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall; function _AddRef: Integer; stdcall; function _Release: Integer; stdcall; Method(Data, Code: Pointer): TMethod;implementationuses ComObj;function ;{ TOleCtrlEventHelper }function ;procedure 01 ;constructor ;destructor ;procedure ;procedure ;function 10 ;function ;function ;function 0 ;function ;procedure $10000 // copy from olectrls.pas: TOleControl.InvokeEvent try asm PUSH EBX PUSH ESI MOV ESI, Params MOV EBX, [ESI].TDispParams.cArgs TEST EBX, EBX JZ @@ 4// count * sizeof(TVarArg) XOR EDX, EDX ADD ESI, EAX 116// Sizeof(TVarArg) MOV EAX, dword ptr [ESI] CMP AX, varSingle 3 JE @@ 2 2 6 MOV ECX, dword ptr [ESI ] JMP @@ 2: TEST EAX, varArray JZ @@ 6 @@: CMP AX, varDate 2 @@: PUSH dword ptr [ESI ] @@: PUSH dword ptr [ESI ] @@: DEC EBX JNE @@ 7 ;function ;function 10 ;function 1 ;function 1 ;end |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |