PDA

View Full Version : روال جابجا کردن یک فرم



rezaTavak
شنبه 08 فروردین 1383, 16:29 عصر
سلام


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

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

binyaz2003
یک شنبه 09 فروردین 1383, 19:03 عصر
با سلام
ببینید با این مشکلتون حل میشه

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

rezaTavak
دوشنبه 10 فروردین 1383, 17:06 عصر
سلام

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

kia1349
سه شنبه 11 فروردین 1383, 11:28 صبح
این که خیلی خوبه

rezaTavak
سه شنبه 11 فروردین 1383, 14:22 عصر
سلام

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

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

rezaTavak
سه شنبه 11 فروردین 1383, 14:24 عصر
سلام

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

binyaz2003
سه شنبه 11 فروردین 1383, 22:27 عصر
ببخشید اون رو یادم رفته بود حالا میزارمش
:roll:

binyaz2003
چهارشنبه 12 فروردین 1383, 02:38 صبح
DECLARE INTEGER GetFocus IN user32

rezaTavak
جمعه 28 فروردین 1383, 19:29 عصر
سلام

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

binyaz2003
دوشنبه 31 فروردین 1383, 02:34 صبح
تو قسمت سلوشن یک مثال عالی هست