季世平和各位好手,帮忙看看吧!!!
各位好手,下面是我的代码,现有个问题:
为什么在程序在运行时,按住Ctrl,消息发送就会被中断。
如果按住Shift就送出其他字符,就不是自定义的自符串了。
以上这两个问题,不论焦点是否在窗体上,都会出现!
请问是什么原因,如何解决???谢谢!!!
void __fastcall TForm1::Button5Click(TObject *Sender)
{
String st1="75413",st2="119.90";int c=0,d=0;
for(int i=1;i<=st1.Length();i++)
{
c=st1[i];
PostMessage(Memo1->Handle,WM_KEYDOWN,c,0);
DWORD dwStart = GetTickCount();
while(GetTickCount()-dwStart<500){
Application->ProcessMessages();}
}
PostMessage(Memo1->Handle,WM_KEYDOWN,VK_RETURN,0);
for(int j=1;j<=st2.Length();j++)
{
d=st2[j];
if(d==46) d=110;
PostMessage(Memo1->Handle,WM_KEYDOWN,d,0);
DWORD dwStart = GetTickCount();
while(GetTickCount()-dwStart<500){
Application->ProcessMessages();}
}
}