SimpsoN_Bart Posted May 21, 2012 Share Posted May 21, 2012 (edited) [b]Bu küçük fonksiyonla form içinde istediğiniz guı elemanını istediğiniz yere taşıyıp hareket ettirebilirsiniz. Eğlencesine [/b] [b] [/b] [b][codebox]Global Const $SC_MOVE = 0xF010 Global Const $WM_SYSCOMMAND = 0x0112 Global Const $HTCAPTION = 2 Local $GUI = GUICreate("Test", 300, 200) Local $LABEL = GUICtrlCreateLabel("Götür beni gittiğin yere", 100, 75, 105, 20) GUICtrlSetBkColor(-1, 0x00FF00) GUISetState() While 1 $msg = GUIGetMsg() Switch $msg Case -3 Exit Case -7 _CONTROL_MOVE($LABEL) EndSwitch WEnd Func _CONTROL_MOVE($CTRL_ID = "") Local $GGCI = GUIGetCursorInfo() If @error Then Return False Local $tasi = $GGCI[4] If $GGCI[4] = $CTRL_ID Then $tasi = $CTRL_ID GUICtrlSendMsg($tasi, 0x0112, BitOR(0xF010, 2), 0) EndFunc ;==>_CONTROL_MOVE[/codebox] [/b] Edited May 21, 2012 by SimpsoN_Bart Quote Link to comment Share on other sites More sharing options...
blackman12 Posted May 21, 2012 Share Posted May 21, 2012 gerçekten çok kullanışlı bi fonksiyomuş bir öğeyle sınırlandırmadan tüm öğeleri taşınabilir yapabilirsin. Func _CONTROL_MOVE($CTRL_ID = "") Local $GGCI = GUIGetCursorInfo() If @error Then Return False Local $tasi = $GGCI[4] If $GGCI[4] = $CTRL_ID Then $tasi = $CTRL_ID GUICtrlSendMsg($tasi, 0x0112, BitOR(0xF010, 2), 0) EndFunc ;==>_CONTROL_MOVE Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted May 21, 2012 Author Share Posted May 21, 2012 [b]Ben çok kullanışlı mı dedim yazdıklarımı bi daha oku küçük bir fonksiyon eğlencesine, bende fark ettim radiobutonda denedim olmamıştı. Labelde olunca diğerler aklıma gelmedi düzelttğin için saol [/b] Quote Link to comment Share on other sites More sharing options...
blackman12 Posted May 21, 2012 Share Posted May 21, 2012 ben ciddi manada kullanışlı demiştim -.- Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted May 21, 2012 Author Share Posted May 21, 2012 [b]Senın meterolojiden veri çeken fonksiyonundan iyi olmasa da idare eder biz ufak çaplı yazıyoruz saçlarınıyolgetir fonksiyonundan daha iyi bi kere -,- [/b] Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.