AAUTO无标题窗口拖拽

import win.ui;
import mouse;
/*DSG{{*/
mainForm = ..win.form(text="AAuto Form";right=599;bottom=399;border="none")
mainForm.add(
button={cls="button";text="Clicked";left=227;top=140;right=361;bottom=203;z=2};
edit={cls="edit";left=14;top=246;right=585;bottom=383;db=1;dl=1;dr=1;dt=1;edge=1;multiline=1;z=1};
radiobutton={cls="radiobutton";text="radiobutton";left=559;top=16;right=573;bottom=30;z=3}
)
/*}}*/


mainForm.radiobutton.oncommand = function(id,event){
//mainForm.msgbox( mainForm.radiobutton.text );
mainForm.close();

}




mainForm.button.oncommand = function(id,event){
//mainForm.msgbox( mainForm.button.text );
mainForm.edit.print(id,event);


}






mainForm.onInitDialog = function(hwnd,message,wParam,lParam){
mainForm.center();

}
import thread.command;
var listener = thread.command();
listener.print = function( ... ){
    mainForm.edit.print( ... ) //将线程传过来的参数追加输出到文本框
} 


//创建工作线程,线程内错误信息默认输出到控制台
thread.invoke(


    function(hwnd){ 
    
        //必须在线程函数内部导入需要的库
        import thread.command;
        
        //调用界面线程的命令
        thread.command.print("hello world",1,2,3);
        
        //也可以用post方法异步调用线程命令,不会等待调用完成
        thread.command.post("print","hello world",1,2,3);
    } 
);


//使用无标题窗口拖拽

mainForm.wndproc = function(hwnd,message,wParam,lParam){ 
select(message) {
case 0x201 {
mainForm.hitCaption();
}

}
}
mainForm.show() 
return win.loopMessage();