Вверх ↑
Этот топик читают: Гость
Ответов: 207
Рейтинг: 14
#1: 2020-02-03 16:51:16 ЛС | профиль | цитата
Решено.
Заблокировал с помощью javascript

Редактировалось 1 раз(а), последний 2020-02-03 20:35:13
карма: 2

0
vip
#1.1контекстная реклама от партнеров
Ответов: 537
Рейтинг: 14
#2: 2020-02-04 10:18:10 ЛС | профиль | цитата
Можно еще так

Add(MainForm,8431895,280,182)
{
Width=753
Height=682
Point(onKeyDown)
Point(Handle)
Point(doSetFocus)
Point(doSendToBack)
Point(doBringToFront)
Point(doCenterPos)
link(onActivate,7704589:doTimer,[])
link(onDeactivate,7704589:doStop,[])
}
Add(WebBrowser,10275324,280,105)
{
Width=737
Height=644
Align=5
URL="https://forum.hiasm.com/forum/0"
Silent=0
Point(Handle)
Point(onKeyDown)
Point(onKeyUp)
Point(onMouseUp)
}
Add(Timer,7704589,329,182)
{
Interval=1
link(onTimer,13313118:doFind,[])
}
Add(FindWindow,13313118,378,182)
{
ClassName="#32768"
SkipParam=1
link(onFind,2763271:doCase,[])
}
Add(SendMessage,9542769,483,182)
{
Message=7
}
Add(Case,2763271,427,182)
{
Value=Integer(0)
link(onNextCase,9542769:doSendMessage,[])
}

карма: 4

1
Голосовали:Joiner
Ответов: 207
Рейтинг: 14
#3: 2020-02-05 14:51:01 ЛС | профиль | цитата
Не работает OnMouseDown в WebBrowser. Только у меня или у всех?
карма: 2

0
Ответов: 5227
Рейтинг: 585
#4: 2020-02-05 15:56:24 ЛС | профиль | цитата
Joiner писал(а):
Не работает OnMouseDown в WebBrowser. Только у меня или у всех?

Скорей всего у всех, но вот это раньше работало

Add(Edit,6271191,133,35)
{
Left=10
Top=5
Width=535
Text="http://kladovka.net.ru/"
}
Add(Button,16349967,56,91)
{
Left=550
Top=5
Width=35
Caption="GO"
link(onClick,12976651:doNavigate,[])
}
Add(WebBrowser,12976651,133,91)
{
Left=10
Top=30
Width=575
Height=430
Silent=0
Point(PHandle)
link(onProgress,1110382:doCompare,[])
link(URL,6271191:Text,[])
}
Add(InlineCode,1727944,147,175)
{
WorkPoints=#21:doGetEventsWebBrowser|
EventPoints=#10:onEventsWB|
VarPoints=#8:DtMouseX|8:DtMouseY|5:DtKey|9:DtKeyChar|7:DtWidth|8:DtHeight|
DataPoints=#9:PHandleWB|
Code=#20:// autor andrestudio|15:unit HiAsmUnit;|0:|9:interface|0:|5:uses |44: kol,windows,Share,Debug,ActiveX,KOLComObj,|27: KOLSHDocVw,MSHTML_TLBKOL;|0:|4:type|25: THTMLEventNotifyEvent =|71: procedure(EventObject: IHTMLEventObj; EventType: string) of object;|1: |50: THTMLEvent = class(TInterfacedObject, IDispatch)|9: private|30: FDocument: IHTMLDocument2;|36: FOnEvent: THTMLEventNotifyEvent;|68: function GetTypeInfoCount(out Count: Integer): HResult; stdcall;|50: function GetTypeInfo(Index, LocaleID: Integer;|38: out TypeInfo): HResult; stdcall;|60: function GetIDsOfNames(const IID: TGUID; Names: Pointer;|54: NameCount, LocaleID: Integer; DispIDs: Pointer):|23: HResult; stdcall;|64: function Invoke(DispID: Integer; const IID: TGUID; LocaleID:|61: Integer; Flags: Word; var Params; VarResult, ExcepInfo,|41: ArgErr: Pointer): HResult; stdcall;|22: procedure DoEvent;|8: public|49: constructor Create(Document: IHTMLDocument2);|43: property OnEvent: THTMLEventNotifyEvent|19: read FOnEvent|21: write FOnEvent;|6: end;|0:|0:|4:type|28: THiAsmClass = class(TDebug)|15: private |25: Doc: IHTMLDocument2;|30: EventHandler: THTMLEvent;|16: mX,mY,iKey,|22: wbWidth,wbHeight,|27: wbTop,wbLeft: integer;|30: KeyChar: string; |9: public|15: PHandleWB,|27: onEventsWB: THI_Event;|18: WB: PControl;|61: procedure doGetEventsWebBrowser(var dt:TData; idx:Word);|48: procedure DtMouseX(var dt:TData; idx:Word);|48: procedure DtMouseY(var dt:TData; idx:Word);|45: procedure DtKey(var dt:TData; idx:Word);|49: procedure DtKeyChar(var dt:TData; idx:Word);|47: procedure DtWidth(var dt:TData; idx:Word);|48: procedure DtHeight(var dt:TData; idx:Word);|5: |71: procedure AllEvent(EventObject: IHTMLEventObj; EventType: string);|5: end;|1: |14:implementation|0:|4:type|31: TKOLWebBrowser = PWebBrowser;|31: PKOLWebBrowser = PWebBrowser;|0:|31:procedure THiAsmClass.AllEvent;|14:var s: string;|5:begin|67: // тут по событиям выкорчёвывам из IHTMLEventObj всякую х...ю :)|30: mX := EventObject.clientX + |59: PKOLWebBrowser(WB).OleObject.document.body.scrollLeft; |29: mY := EventObject.clientY +|57: PKOLWebBrowser(WB).OleObject.document.body.scrollTop;|4: |30: iKey := EventObject.KeyCode;|45: KeyChar := WideChar(EventObject.KeyCode); |38: _hi_onEvent(onEventsWB, EventType);|4:end;|0:|44:procedure THiAsmClass.doGetEventsWebBrowser;|3:var|20: VarTmp: IDispatch;|5:begin|44: WB := PControl(ToIntegerEvent(PHandleWB));|32: if not Assigned(WB) then exit;|2: |68: wbWidth := PKOLWebBrowser(WB).OleObject.document.body.scrollWidth;|72: wbHeight := PKOLWebBrowser(WB).OleObject.document.body.scrollHeight; |65: //_debug(PKOLWebBrowser(WB).OleObject.document.body.scrollTop);|66: //_debug(PKOLWebBrowser(WB).OleObject.document.body.scrollLeft);|2: |50: VarTmp := PKOLWebBrowser(WB).OleObject.Document;|34: Doc := VarTmp as IHTMLDocument2;|0:|41: EventHandler := THTMLEvent.Create(Doc);|35: EventHandler.OnEvent := AllEvent;|1: |41: // подключаем события из IHTMLDocument2|45: Doc.onkeydown := EventHandler as IDispatch;|46: Doc.onkeypress := EventHandler as IDispatch;|45: Doc.onkeyup := EventHandler as IDispatch; |43: Doc.onclick := EventHandler as IDispatch;|48: Doc.ondblclick := EventHandler as IDispatch; |47: Doc.onmousemove := EventHandler as IDispatch;|45: Doc.onmouseup := EventHandler as IDispatch;|47: Doc.onmousedown := EventHandler as IDispatch;|46: Doc.onmouseout := EventHandler as IDispatch;|47: Doc.onmouseover := EventHandler as IDispatch;|39: // подключаем события из IHTMLWindow2|57: Doc.parentWindow.onscroll := EventHandler as IDispatch;|59: //Doc.parentWindow.onresize := EventHandler as IDispatch;|0:|4:end;|0:|31:procedure THiAsmClass.DtMouseX;|5:begin|20: dtInteger(dt, mX);|4:end;|0:|31:procedure THiAsmClass.DtMouseY;|5:begin|20: dtInteger(dt, mY);|4:end;|0:|28:procedure THiAsmClass.DtKey;|5:begin|22: dtInteger(dt, iKey);|4:end;|0:|32:procedure THiAsmClass.DtKeyChar;|5:begin|24: dtString(dt, KeyChar);|4:end;|0:|30:procedure THiAsmClass.DtWidth;|5:begin|25: dtInteger(dt, wbWidth);|4:end;|0:|31:procedure THiAsmClass.DtHeight;|5:begin|26: dtInteger(dt, wbHeight);|4:end;|0:|0:|66:function THTMLEvent.GetTypeInfoCount(out Count: Integer): HResult;|5:begin|21: Result := E_NOTIMPL|4:end;|1: |57:function THTMLEvent.GetTypeInfo(Index, LocaleID: Integer;|25: out TypeInfo): HResult;|5:begin|21: Result := E_NOTIMPL|4:end;|1: |67:function THTMLEvent.GetIDsOfNames(const IID: TGUID; Names: Pointer;|59: NameCount, LocaleID: Integer; DispIDs: Pointer): HResult;|5:begin|21: Result := E_NOTIMPL|4:end;|1: |61:function THTMLEvent.Invoke(DispID: Integer; const IID: TGUID;|56: LocaleID: Integer; Flags: Word; var Params; VarResult,|39: ExcepInfo, ArgErr: Pointer): HResult;|5:begin|10: DoEvent;|17: Result := S_OK;|4:end;|1: |56:constructor THTMLEvent.Create(Document: IHTMLDocument2);|5:begin|19: inherited Create;|24: FDocument := Document;|18: FOnEvent := nil;|4:end;|1: |29:procedure THTMLEvent.DoEvent;|3:var|26: EventObj: IHTMLEventObj;|20: EventType: string;|5:begin|28: if Assigned(FOnEvent) then|7: begin|20: EventObj := nil;|20: EventType := '';|68: if Assigned(FDocument) and Assigned(FDocument.parentWindow) then|9: begin|47: EventObj := FDocument.parentWindow.event;|32: if Assigned(EventObj) then|36: EventType := EventObj.type_;|8: end;|1: |34: FOnEvent(EventObj, EventType);|6: end;|4:end;|0:|14:initialization|10: OleInit;|20: CoInitialize(nil);|0:|0:|4:end.|
link(onEventsWB,12352514:doEvent1,[])
link(PHandleWB,12976651:PHandle,[])
}
Add(MainForm,6751328,56,35)
{
Width=609
Height=684
Caption="WebBrowserEvent demo "
Position=1
}
Add(Memo,10375323,252,175)
{
Left=10
Top=470
Width=365
Height=170
Font=[MS Sans Serif,10,0,0,1]
AddType=1
ScrollBars=3
}
Add(Label,13463995,252,238)
{
Left=390
Top=475
Width=180
Height=113
Font=[Courier New,10,0,16711680,204]
Caption=" Juk\r\nс тебя бутылка!\r\n\r\n :)"
AutoSize=1
}
Add(FormatStr,13303072,147,238)
{
DataCount=6
Mask="MouseX - %1 \r\nMouseY - %2\r\nKeyCode - %3\r\nKeyChar - %4\r\nWidth - %5\r\nHeight - %6"
link(onFString,13463995:doText,[])
link(Str1,1727944:DtMouseX,[])
link(Str2,1727944:DtMouseY,[])
link(Str3,1727944:DtKey,[])
link(Str4,1727944:DtKeyChar,[])
link(Str5,1727944:DtWidth,[])
link(Str6,1727944:DtHeight,[])
}
Add(Hub,12352514,203,175)
{
link(onEvent1,10375323:doAdd,[])
link(onEvent2,13303072:doString,[(227,188)(227,223)(135,223)(135,244)])
}
Add(Button,573622,56,175)
{
Left=405
Top=595
Width=180
Height=45
Caption="GetEvent"
link(onClick,8346162:doWork2,[])
}
Add(If_else,1110382,196,112)
{
Op2=Integer(0)
link(onTrue,8346162:doWork1,[(241,118)(241,160)(123,160)])
}
Add(HubEx,8346162,119,175)
{
link(onEvent,1727944:doGetEventsWebBrowser,[])
}

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
1
Голосовали:Joiner
Ответов: 207
Рейтинг: 14
#5: 2020-02-05 16:15:49 ЛС | профиль | цитата
andrestudio писал(а):
Скорей всего у всех, но вот это раньше работало

Спасибо, но у меня не запускается почему-то.
карма: 2

0
5
Сообщение
...
Прикрепленные файлы
(файлы не залиты)