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
哪位帮帮?
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
哪位帮帮?