tempdelphi

procedure TfrmWeb.WBStatusTextChange (Sender: TObject; const Text: WideString); var doc: IHTMLDocument2; element: IHTMLElement; begin doc: = WB.Document as IHTMLDocument2; GetCursorPos (p); p: = WB.ScreenToClient (p); if pX <= 0 then pX: = 0; // screen exit protection if pY <= 0 then pY: = 0; // as above if pX> = WB.Height then pX: = WB.Height; if pY> = WB.Width then pY: = WB.Width; if Loaded then begin elem: = doc.elementFromPoint (pX, pY); frmWeb.Caption: = 'mini WebBrowser [X:' + intToStr (pX) + 'Y:' + IntToStr (pY) + ']'; sPanel2.Caption: = '[X:' + intToStr (pX) + 'Y:' + IntToStr (pY) + ']'; try lastName: = elem.getAttribute ('name', 0); except on exception to end; LastID: = elem.id; LastTagName: = item.tagName; LastX: = pX; LastY: = pY; sPanel3.Caption: = 'TagName:' + lastTagName + '|| ID: '+ LastID +' || NAME: '+ lastName +' || ClassName: '+ LastClassName; end; end;