<!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> </DIV>
<DIV><FONT size=2>I remember hearing of this before.</FONT></DIV>
<DIV><FONT size=2></FONT> </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> </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> </DIV>
<DIV><FONT size=2>(IE 5 and up?) - Both the [window.document] and
the [window.document.body] objects support these events:</FONT></DIV>
<DIV><FONT size=2></FONT> </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
</FONT></U></MSHelp:link></NOBR></TD></TR></TBODY></TABLE></DIV>
<DIV> <FONT size=2>There is a specific forum for Delphi and Twebbrowser and
TembeddedWB (search messages under "sink events" or like) :</FONT></DIV>
<DIV><FONT size=2></FONT> </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> </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)/ log in first to access these.)</FONT></DIV>
<DIV><FONT size=2></FONT> </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> </DIV></TD></TR></TBODY></TABLE></DIV>
<DIV><FONT size=2>And</FONT></DIV>
<DIV><FONT size=2> <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> </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> </DIV>
<DIV><FONT size=2>Ph NZ 021 782 433<BR>Fx NZ 021 292 2433</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=2>Overseas:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=2>Ph. +6421782433<BR>Fax +64212912433</FONT></DIV>
<DIV> </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 & tRichEdit</DIV>
<DIV><BR></DIV>
<DIV><FONT face=Arial size=2>Hi </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </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> </DIV>
<DIV><FONT face=Arial size=2>The actual information transfer
occurs without any problems at all. However, the application needs
to record the URL of the source webpage, and I can't 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> </DIV>
<DIV><FONT face=Arial size=2>I thought I could use the onDragDrop event
that tRichEdit inherits from tControl, but it doesn't fire (nor does
onEndDrag). There are Delphi examples for those events in the Help
system, and they work fine, but not when I try to apply them to my
application.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>The tRichEdit and the tWebBrowser components are
both created dynamically, 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> </DIV>
<DIV><FONT face=Arial size=2>_________</FONT></DIV>
<DIV> </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> </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>