روال جابجا کردن یک فرم

سلام


کسی روالی داره که باهاش بشه از هر جای فرم فرم را گرفت و کشید جای دیگه؟

جناب آقای توکل
این چیزی که میخواهید با دستورات مختصات موس قابل انجامه
ولی من به شما پیشنهاد میکنم حتما تو سایت www.universalthread.com عضو بشید
عضویتش رایگانه و در بخش دانلود اون مثالهای زیادی در این باره وجود داره که میتونه مشکلاتتون رو حل کنه
البته سایت www.foxite.com هم هست که مثالهای خوب و قشنگی داره

با سلام
ببینید با این مشکلتون حل میشه

PROCEDURE Load  

  DECLARE INTEGER ReleaseCapture IN user32 



  DECLARE INTEGER SendMessage IN user32; 

	     INTEGER hWnd, INTEGER Msg,; 

  	     INTEGER wParam, INTEGER lParam 

ENDPROC

PROCEDURE MouseDown

		#DEFINE WM_NULL           0 

		#DEFINE WM_SYSCOMMAND   274  && 0x112 

		#DEFINE MOUSE_MOVE    61458  && 0xF012 



	    IF nButton = 1 

	        = ReleaseCapture() 

	        = SendMessage (GetFocus(), WM_SYSCOMMAND, MOUSE_MOVE, WM_NULL) 

	    ENDIF

ENDPROC

سلام

من هر دو سایت رفته ام اما خیلی شلوغه.

این که خیلی خوبه

سلام

آقای بی نیاز من با روال شما کارم راه افتاد متشکرم

اما GetFocus را خودم به فاکس پرو معرفی کردم چون اشکل میگرفت.

سلام

آقا کیا آخه شلوغی اون از این جهت بده که نمیدونم کجا باید برم

ببخشید اون رو یادم رفته بود حالا میزارمش
:roll:

DECLARE INTEGER GetFocus IN user32  

سلام

من می خواهم بقیه چیزها را نیز در موقع اچرای یک فرم جابجا کنم مثلا جای یک TextBox در هنگام طراحی قابل جابجایی باشه. البته می دونم با Drag and drop باید باشه.

تو قسمت سلوشن یک مثال عالی هست