Dave, I haven't downloaded your Beta yet, so I'm not sure how you implemented this. But I had a notion to look back on this today. I think I have a possible solution:
oFrm = CREATEOBJECT("cFrm") oFrm.Show() READ EVENTS DEFINE CLASS cFrm as Form allowoutput = .F. showtips = .T. ADD OBJECT lbl1 as Label WITH Caption = "Hello World", ToolTipText = "Double click to edit" ADD OBJECT txt1 as textbox WITH value = "Hello World", Visible = .F. ADD OBJECT txt2 as textbox WITH top = 40 PROCEDURE Destroy CLEAR EVENTS ENDPROC PROCEDURE Init THIS.lbl1.AddProperty("DragStart",0) ENDPROC PROCEDURE lbl1.MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord IF nButton = 1 AND SECONDS()-THIS.DragStart> _dblclick THIS.Drag(1) THIS.DragStart = SECONDS() ENDIF ENDPROC PROCEDURE lbl1.DblClick THISForm.txt1.Visible = .T. THISFORM.txt1.SetFocus() THIS.Visible = .F. ENDPROC PROCEDURE lbl1.MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord THIS.Drag(0) ENDPROC PROCEDURE txt1.LostFocus THISFORM.lbl1.Caption = THIS.Value THISFORM.lbl1.Visible = .T. THIS.Visible = .F. ENDPROC PROCEDURE txt2.DragDrop LPARAMETERS oSource, nXCoord, nYCoord THIS.Value = oSource.Caption ENDPROC ENDDEFINE Tracy -----Original Message----- From: Dave Crozier Sent: Tuesday, June 20, 2006 2:59 AM Subject: RE: Textbox Drag/Drop 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 _______________________________________________ Post Messages to: ProFox@leafe.com 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.