Tracy, Exactly what I mean! This is a real showstopper unless I can come up with a solution which doesn't use timers - the search goes on.
Dave Crozier "A computer is a stupid machine with the ability to do incredibly smart things, while computer programmers are smart people with the ability to do incredibly stupid things. They are, in short, a perfect match" - Bill Bryson -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Tracy Pearson Sent: 19 June 2006 18:06 To: [email protected] Subject: RE: Textbox Drag/Drop Let me answer that. NO! added AllowOutput = .F. property to the form. then a procedure txt1.dblclick with ?THIS.Value No output with the dblclick, but the words highlight like the dblclick is firing for Fox, just not the event Tracy -----Original Message----- From: Tracy Pearson Subject: RE: Textbox Drag/Drop Is this what you are after? <code> oFrm = CREATEOBJECT("cFrm") oFrm.Show() READ EVENTS DEFINE CLASS cFrm as Form ADD OBJECT txt1 as textbox WITH value = "Hello World" ADD OBJECT txt2 as textbox WITH top = 40 PROCEDURE Destroy CLEAR EVENTS ENDPROC PROCEDURE txt1.MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord THIS.AddProperty("MDown",MDOWN()) ENDPROC PROCEDURE txt1.MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord IF nButton = 1 THIS.Drag(1) ENDIF ENDPROC PROCEDURE txt1.MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord THIS.Drag(0) ENDPROC PROCEDURE txt2.DragDrop LPARAMETERS oSource, nXCoord, nYCoord THIS.Value = oSource.Value ENDPROC ENDDEFINE </code> Tracy Pearson PowerChurch Software 828-665-1818 [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
