为什么不能连续的 模拟按键CTRL+V 对1EDIT 填写入数据? ( 积分: 20 )

  • 主题发起人 主题发起人 py6530
  • 开始时间 开始时间
P

py6530

Unregistered / Unconfirmed
GUEST, unregistred user!
如果想对一个EDIT填写数据是可以的:
edit1.SetFocus ;
Clipboard.Clear;
Clipboard.AsText := '第一个值'; //写入内容
keybd_event(17,0,0,0); //CTRL 按下
keybd_event(86,0,0,0); //V 按下
keybd_event(86,0,KEYEVENTF_KEYUP,0); //释放V
keybd_event(17,0,KEYEVENTF_KEYUP,0);//释放 CTRL
//但还想对下一个EDIT 填写内容 就不行了,
edit2.SetFocus ;
Clipboard.Clear;
Clipboard.AsText := '第二个值'; //写入内容
keybd_event(17,0,0,0); //CTRL 按下
keybd_event(86,0,0,0); //V 按下
keybd_event(86,0,KEYEVENTF_KEYUP,0); //释放V
keybd_event(17,0,KEYEVENTF_KEYUP,0);//释放 CTRL

哪位帮帮?
 
后退
顶部