打个比方说,有两个按钮,各有一段代码,其中一个按钮的代码的功能是模拟另外一个按钮按下,并且当另外一个按钮产生按下效果的同时也执行该按钮的代码。请给出一点提示吧,多谢。
解决方案 »
- 刚学delphi,各位来推荐几本书
- DateSet操作的一个难题(再线等)
- ***如何把一个MDI子窗口,就限制在主窗口的一个panel上?急死我了***
- 数据库连接问题
- 难道真的没人能看出这个sql语句的错误吗??郁闷啊,大家的delphi都是怎么学的啊,为什么??
- 用ActiveForm技术时,怎样在activeform1表单中按下按纽就调用第二个Activeform2表单呢?
- delphi如何编程操作access2007附件字段里面的内容
- 三层结构应用服务器的调试
- 求救delphi高手:怎样动态加载"含一个panel与其它控件(如Grid/Button)的"类"
- 对不起,我太菜了:)
- 《Delphi面向对象编程的20条规则》第9条是什么意思??
- idftp的返回消息怎么屏蔽掉?在线等待,给分
call command2_click()
end sub
procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
begin
x:= form1.Left+button2.Left+25;
y:= top+button2.Top+27;
SetCursorPos(x,y);
sleep(500);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('fksj');
end;
PostMessage(Handle,WM_LBUTTONDOWN,0,0);
PostMessage(Handle,WM_LBUTTONUP,0,0);