<!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 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><IMG height=16 alt=directory 
      src="http://us.i1.yimg.com/us.yimg.com/i/yg/img/doc/folder.gif" width=16 
      border=0></TD>
    <TD>
      <DIV><A 
      href="http://groups.yahoo.com/group/delphi-webbrowser/files/Alexei%20Reatov%27s%20event%20demo/">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<BR></FONT></DIV>
<BLOCKQUOTE 
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=delphi@ns3.123.co.nz 
  href="mailto:delphi@ns3.123.co.nz">delphi@ns3.123.co.nz</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, 1 September 2004 1:56 
  p.m.</DIV>
  <DIV style="FONT: 10pt arial"><B>Subject:</B> [DUG] dragging between 
  tWebBrowser &amp; tRichEdit</DIV>
  <DIV><BR></DIV>
  <DIV><FONT face=Arial size=2>Hi </FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
  <DIV><FONT face=Arial size=2>I have an application that allow a user to drag 
  information from a WebBrowser component to a RichEdit component. </FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
  <DIV><FONT face=Arial size=2>The actual information transfer 
  occurs&nbsp;without any problems at all. However,&nbsp;the application needs 
  to record the URL of the source webpage, and I can't&nbsp; find a way to alert 
  the it to the fact that the drag-and-drop event has occurred. </FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
  <DIV><FONT face=Arial size=2>I thought I could use the&nbsp;onDragDrop event 
  that tRichEdit inherits&nbsp; from tControl, but it doesn't fire (nor does 
  onEndDrag). There are Delphi examples for those events&nbsp;in the Help 
  system, and they&nbsp;work fine, but not when I try to apply them to&nbsp;my 
  application.</FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
  <DIV><FONT face=Arial size=2>The tRichEdit and the tWebBrowser components are 
  both created dynamically,&nbsp;but I know to assign the event handler 
  procedure to the event name (e.g. onDragDrop := recordSourceURL), so that 
  isn't the problem...</FONT></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>
  <P>
  <HR>

  <P></P>
  <DIV>_______________________________________________<BR>Delphi mailing 
  list<BR>Delphi@ns3.123.co.nz<BR>http://ns3.123.co.nz/mailman/listinfo/delphi<BR></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><BR>---<BR>Outgoing mail is certified Virus Free.<BR>Checked by AVG 
  anti-virus system (<A 
  href="http://www.grisoft.com">http://www.grisoft.com</A>).<BR>Version: 6.0.747 
  / Virus Database: 499 - Release Date: 1/09/2004</DIV></BLOCKQUOTE></BODY></HTML>