其实做法很简单,它只用两条Windows消息就能实现了。(当然,前提是你必须知道那个按钮的handle。我想这个对一般程序员来说简直是小菜一碟)这两条消息分别是:WM_LBUTTONDOWN和WM_LBUTTONUP。下面我给出一个简单的实例说明用法:
procedure TForm1.Button1Click(Sender: TObject);
var
btnHandle: HWND; //要控制的那个按钮的句柄
begin
btnHandle:=strtoint(Edit1.Text ); //为了简单起见就这么设了,你要先写程序得到它
SendMessage(btnHandle,WM_LBUTTONDOWN,MK_LBUTTON, 0);
SendMessage(btnHandle,WM_LBUTTONUP,0,0);
end;
整个过程其实就是模拟了一下鼠标左键被按下又松开(注意,光有鼠标左键被按下是不行的)。怎么样?够简单吧!现在就可以把这个功能加进你的程序里面,实现一些有趣的效果了!:)
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18