<!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>Might be worth checking out <A class=AuthorEMail
href="mailto:ajohnson@rpi.net.au"><FONT size=3>Angus Johnson</FONT></A> and
<FONT size=3> </FONT><A class=AuthorEMail
href="mailto:anders@melander.dk"><FONT size=3>Anders Melander</FONT></A>'s drag
drop stuff even though you are working within the one application, some of
their logic might help, Twebbrowser or TembeddedWB sometimes almost behave as if
thewy were not embedded in a delphi app at all.</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2><A
href="http://delphi.icm.edu.pl/authors/a0000900.htm">http://delphi.icm.edu.pl/authors/a0000900.htm</A></FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>Component:</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2><A
href="http://delphi.icm.edu.pl/ftp/d30free/dragdrop.exe">http://delphi.icm.edu.pl/ftp/d30free/dragdrop.exe</A></FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>Paul A Norman</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>_______________________________________________<BR>Delphi mailing
list<BR>Delphi@ns3.123.co.nz<BR>http://ns3.123.co.nz/mailman/listinfo/delphi<BR></BLOCKQUOTE></BODY></HTML>