<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.2180" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2>Dear Paul,</FONT></DIV>
<DIV><FONT size=2></FONT>&nbsp;</DIV>
<DIV><FONT size=2>I've been and had a look at the attachment that was scrubbed. 
It is a graphic (GIF) of a folder picture from the Yahoo Delphi Webbrowser news 
group .. a harmless GIF that Paradise has zealously suspected of being able to 
destroy the universe . . </FONT></DIV>
<DIV><FONT size=2></FONT>&nbsp;</DIV>
<DIV><FONT size=2>Meanwhile, here is the posting I made, I&nbsp;hope 
that&nbsp;it is helpful:</FONT></DIV>
<DIV><FONT size=2></FONT>&nbsp;</DIV>
<DIV><FONT size=2>===============================================</FONT></DIV>
<DIV><FONT size=2></FONT>&nbsp;</DIV>
<DIV><FONT size=2>
<DIV><FONT size=2>Dear Paul,</FONT></DIV>
<DIV><FONT size=2></FONT>&nbsp;</DIV>
<DIV><FONT size=2>I remember hearing of this before.</FONT></DIV>
<DIV><FONT size=2></FONT>&nbsp;</DIV>
<DIV><FONT size=2><U><STRONG>If all else fails</STRONG></U> you can attach an 
eventhandler to the TwebBrowser or TEmbededWB that will "listen" for the 
dragcomplete type events from the Twebbrowser.</FONT></DIV>
<DIV><FONT size=2></FONT>&nbsp;</DIV>
<DIV><FONT size=2>You may have to experiment with the avaialable browser events 
to see which is going to fire accurately to what you want, and you may need to 
monitor and confirm a change in the TrichEdit (TCustomEdit.OnChange), so you 
know that your browser event is related to a change in the 
Trichedit.</FONT></DIV>
<DIV><FONT size=2></FONT>&nbsp;</DIV>
<DIV><FONT size=2>(IE&nbsp;5 and up?)&nbsp;- Both the [window.document] and 
the&nbsp; [window.document.body] objects support these events:</FONT></DIV>
<DIV><FONT size=2></FONT>&nbsp;</DIV>
<DIV>
<TABLE class=clsStd style="BACKGROUND: #ffffff" width="100%">
  <TBODY>
  <TR>
    <TD><NOBR><?XML:NAMESPACE PREFIX = MSHelp NS = 
      "http://msdn.microsoft.com/mshelp" /><MSHelp:link tabIndex=0 
      xmlns:MSHelp="http://msdn.microsoft.com/mshelp" 
      keywords="_inet_ondrag_Event_7ttc_scr"><U><FONT 
      color=#0000ff>ondrag</FONT></U></MSHelp:link></NOBR></TD>
    <TD>Fires on the source object continuously during a drag operation.</TD></TR>
  <TR>
    <TD><NOBR><MSHelp:link tabIndex=0 
      xmlns:MSHelp="http://msdn.microsoft.com/mshelp" 
      keywords="_inet_ondragend_Event_7968_scr"><U><FONT 
      color=#0000ff>ondragend</FONT></U></MSHelp:link></NOBR></TD>
    <TD>Fires on the source object when the user releases the mouse at the 
      close of a drag operation.</TD></TR>
  <TR>
    <TD><NOBR><MSHelp:link tabIndex=0 
      xmlns:MSHelp="http://msdn.microsoft.com/mshelp" 
      keywords="_inet_ondragenter_Event_scr"><U><FONT 
      color=#0000ff>ondragenter</FONT></U></MSHelp:link></NOBR></TD>
    <TD>Fires on the target element when the user drags the <SPAN 
      replace="1">object</SPAN> to a valid drop target.</TD></TR>
  <TR>
    <TD><NOBR><MSHelp:link tabIndex=0 
      xmlns:MSHelp="http://msdn.microsoft.com/mshelp" 
      keywords="_inet_ondragleave_Event_scr"><U><FONT 
      color=#0000ff>ondragleave</FONT></U></MSHelp:link></NOBR></TD>
    <TD>Fires on the target object when the user moves the mouse out of a 
      valid drop target during a drag operation.</TD></TR>
  <TR>
    <TD><NOBR><MSHelp:link tabIndex=0 
      xmlns:MSHelp="http://msdn.microsoft.com/mshelp" 
      keywords="_inet_ondragover_Event_scr"><U><FONT 
      color=#0000ff>ondragover</FONT></U></MSHelp:link></NOBR></TD>
    <TD>Fires on the target element continuously while the user drags the 
      <SPAN replace="1">object</SPAN> over a valid drop target.</TD></TR>
  <TR>
    <TD><NOBR><MSHelp:link tabIndex=0 
      xmlns:MSHelp="http://msdn.microsoft.com/mshelp" 
      keywords="_inet_ondragstart_Event_9ohc_scr"><U><FONT 
      color=#0000ff>ondragstart</FONT></U></MSHelp:link></NOBR></TD>
    <TD>Fires on the source object when the user starts to drag a text 
      selection or selected object. </TD></TR>
  <TR>
    <TD><NOBR><MSHelp:link tabIndex=0 
      xmlns:MSHelp="http://msdn.microsoft.com/mshelp" 
      keywords="_inet_ondrop_Event_scr"><U><FONT 
      color=#0000ff>ondrop&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
      </FONT></U></MSHelp:link></NOBR></TD></TR></TBODY></TABLE></DIV>
<DIV>&nbsp;<FONT size=2>There is a specific forum for Delphi and Twebbrowser and 
TembeddedWB (search messages under "sink events" or like)&nbsp;:</FONT></DIV>
<DIV><FONT size=2></FONT>&nbsp;</DIV>
<DIV><FONT size=2><A 
href="http://groups.yahoo.com/group/delphi-webbrowser/messages">http://groups.yahoo.com/group/delphi-webbrowser/messages</A></FONT></DIV>
<DIV><FONT size=2></FONT>&nbsp;</DIV>
<DIV><FONT size=2>(There you will find in their library/Files the units needed 
to get events in the browser to report to Delphi, I thinks that you'll need to 
register(free)/&nbsp;log in first to access these.)</FONT></DIV>
<DIV><FONT size=2></FONT>&nbsp;</DIV>
<DIV>
<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
  <TBODY>
  <TR vAlign=top>
    <TD><FONT size=2></FONT></TD>
    <TD>
      <DIV><A 
      href="http://groups.yahoo.com/group/delphi-webbrowser/files/Alexei Reatov's event demo/">Alexei 
      Reatov's event demo</A> <BR>How to hook into IHTML events </DIV>
      <DIV>&nbsp;</DIV></TD></TR></TBODY></TABLE></DIV>
<DIV><FONT size=2>And</FONT></DIV>
<DIV><FONT size=2>&nbsp;<A 
href="http://f6.grp.yahoofs.com/v1/IC01QZL8YZiakBhjRvfy3nM86nTrAz9Rtm2iyShAclGNY7j40Y4eKSea-4pCTqMsHdewoZnv--IMBjl0h08Xwbemugnxc0yPCtZa/SinkIEEvents.rar">http://f6.grp.yahoofs.com/v1/IC01QZL8YZiakBhjRvfy3nM86nTrAz9Rtm2iyShAclGNY7j40Y4eKSea-4pCTqMsHdewoZnv--IMBjl0h08Xwbemugnxc0yPCtZa/SinkIEEvents.rar</A></FONT></DIV>
<DIV><FONT size=2></FONT>&nbsp;</DIV>
<DIV><FONT size=2>paul</FONT></DIV>
<DIV><FONT size=2><A 
href="mailto:paul_norman_3@compuserve.com">paul_norman_3@compuserve.com</A><BR><A 
href="http://PaulANorman.com">http://PaulANorman.com</A></FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=2>Ph NZ 021 782 433<BR>Fx NZ 021 292 2433</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=2>Overseas:</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=2>Ph. +6421782433<BR>Fax +64212912433</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=2>P.O. Box 1005<BR>Nelson 7015<BR>New 
Zealand</FONT></DIV></FONT></DIV>
<BLOCKQUOTE dir=ltr 
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV 
  style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B> 
  <A title=p.lyons@paradise.net.nz href="mailto:p.lyons@paradise.net.nz">Paul 
  Lyons</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>To:</B> <A title=paul_norman_3@compuserve.com 
  href="mailto:paul_norman_3@compuserve.com">paul_norman_3@compuserve.com</A> 
  </DIV>
  <DIV style="FONT: 10pt arial"><B>Sent:</B> Sunday, 5 September 2004 7:29 
  p.m.</DIV>
  <DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [DUG] dragging between 
  tWebBrowser &amp; tRichEdit</DIV>
  <DIV><BR></DIV>
  <DIV><FONT face=Arial size=2>
  <DIV><FONT face=Arial size=2>Hi Paul</FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
  <DIV><FONT face=Arial size=2>Sorry I didn't get back to you sooner; fell off a 
  ladder and didn't move much under my own power for several 
  days...</FONT></DIV></FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
  <DIV><FONT face=Arial size=2>My ISP seems to have deleted the guts of your 
  message. Can you send it to me in a format that P</FONT><FONT face=Arial 
  size=2>aradise won't censor?</FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
  <DIV><FONT face=Arial size=2>Thanks</FONT></DIV>
  <DIV><FONT face=Arial size=2>Paul Lyons</FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
  <DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
  <DIV><FONT face=Arial size=2><FONT face="Times New Roman" size=3>Message: 
  3<BR>Date: Wed, 01 Sep 2004 14:33:42 +1200<BR>From: Paul A Norman 
  &lt;</FONT><A href="mailto:paul_norman_3@compuserve.com"><FONT 
  face="Times New Roman" size=3>paul_norman_3@compuserve.com</FONT></A><FONT 
  face="Times New Roman" size=3>&gt;<BR>Subject: Re: [DUG] dragging between 
  tWebBrowser &amp; tRichEdit<BR>To: NZ Borland Developers Group - Delphi List 
  &lt;</FONT><A href="mailto:delphi@ns3.123.co.nz"><FONT face="Times New Roman" 
  size=3>delphi@ns3.123.co.nz</FONT></A><FONT face="Times New Roman" 
  size=3>&gt;<BR>Message-ID: &lt;</FONT><A 
  href="mailto:001801c48fcc$1f6f6170$9504f6d2@HENRY2"><FONT 
  face="Times New Roman" 
  size=3>001801c48fcc$1f6f6170$9504f6d2@HENRY2</FONT></A><FONT 
  face="Times New Roman" size=3>&gt;<BR>Content-Type: text/plain; 
  charset="iso-8859-1"<BR><BR>Skipped content of type 
  multipart/alternative-------------- next part --------------<BR>A non-text 
  attachment was scrubbed...<BR>Name: not available<BR>Type: image/gif<BR>Size: 
  893 bytes<BR>Desc: not available<BR>Url : </FONT><A 
  href="http://ns3.123.co.nz/pipermail/delphi/attachments/20040901/87c86b0f/attachment.gif"><FONT 
  face="Times New Roman" 
  size=3>http://ns3.123.co.nz/pipermail/delphi/attachments/20040901/87c86b0f/attachment.gif</FONT></A><BR></FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
  <DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
  <DIV><FONT face=Arial size=2>_________</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT face=Arial size=2>Paul 
Lyons<BR>_________</FONT></DIV></BLOCKQUOTE></BODY></HTML>