aardio - 鼠标按住按钮拖动示例

效果：

 

代码：

1、以下代码可以实现，但会影响鼠标松开后再移动到其他组件上时的事件处理：

import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=759;bottom=469)
winform.add(
button={cls="button";text="Button";left=273;top=131;right=530;bottom=300;z=1}
)
/*}}*/
winform.button.wndproc = function(hwnd,message,wParam,lParam){
	if message = 0x201	::SendMessageInt( hwnd, 0xA1/*_WM_NCLBUTTONDOWN*/ , 0x2/*_HTCAPTION*/, 0 );
}
winform.show();
win.loopMessage();

2、参考 winform.hitCaption() 代码进行修正，鼠标放开后，不影响其他控件的鼠标事件：

import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=759;bottom=469)
winform.add(
button={cls="button";text="Button";left=273;top=131;right=530;bottom=300;z=1}
)
/*}}*/
winform.button.wndproc = function(hwnd,message,wParam,lParam){
	if message = 0x201	{
		owner.setTimeout( 
    		function(){
    			..win.releaseCapture();
				::SendMessageInt( hwnd, 0xA1/*_WM_NCLBUTTONDOWN*/ , 0x2/*_HTCAPTION*/, 0 );
    		}
    	) 
	}
}
winform.show();
win.loopMessage();

3、此代码也可以适用其他窗口组件，请自行参考修改。