发送消息-点击按钮
工具/原料
Delphi
方法/步骤
1、正确:SendMessage(HWND,WM_LBUTTONDOWN,0,0);//鼠标左键按下Sleep(10);SendMessage(HWND,WM_LBUTTONUP,0,0);//鼠标左键放开错误PostMessage(HWND,WM_LBUTTONDOWN,0,0);Sleep(10);PostMessage(HWND,WM_LBUTTONUP,0,0);
2、按键按下和弹起必须用SendMessage推荐使用此消息SendMessage(HWND,BM_CLICK,0,0);//模拟单击某按钮BM即buttonmessage另一种点击按钮的方法SendMessage(HWND_Button,WM_KEYDOWN,VK_SPACE,0);//按下空格相当于点击按钮Sleep(10);SendMessage(HWND_Button,WM_KEYUP,VK_SPACE,0);//放开空格相当于点击按钮
3、SendMessage(HWND_Button,WM_SETFOCUS巳呀屋饔,0,0);//给按钮设置一下焦点SendMessage(TreeView.Handle,TVM_SETBK潮贾篡绐COLOR,0,RGB(255,0,0)); 设置TV背景颜色SendMessage(Button.Handle,WM_LBUTTONDOWN,0,0); 鼠标左键按下SendMessage(Button.Handle,WM_LBUTTONUP,0,0); 鼠标左键抬起SendMessage(Edit.Handle,WM_SETTEXT,255,Integer(PChar('abc'))); 传递文本SendMessage(Edit.Handle,WM_Char,Wparam('Q'),2); 传递字符SendMessage(Button.Handle,BM_SETSTYLE,BS_RADIOBUTTON,1); 改变Button风格SendMessage(ComboBox.Handle,CB_SETDropPEDWIDTH,300,0); 改变CBDownWidth