********关于密码键盘的问题*******(50)

  • 主题发起人 主题发起人 fhuibo
  • 开始时间 开始时间
F

fhuibo

Unregistered / Unconfirmed
GUEST, unregistred user!
密码键盘,当我在键盘上按下 "Ctrl"和“+”的组合键 密码键盘提示“请输入密码”,同时密码键盘就可以输入密码。当我在程序按钮中的onclike时间中,模拟大键盘的输入"Ctrl"和“+”的组合键,如下:begin keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0),0,0); keybd_event(VK_ADD,MapVirtualKey(VK_ADD,0),0 ,0 ); keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0),KEYEVENTF_KEYUP,0); keybd_event(VK_ADD,MapVirtualKey(VK_ADD, 0),KEYEVENTF_KEYUP,0); end;为什么密码键盘不提示 “请输入密码”,而密码键盘也不能输入密码,请兄弟们帮忙!!
 
我想: "Ctrl"和“+”的组合键 的事件你可能都没有触发。现两种触发方式:一、消息触发。我想你可能想用,但我觉得还不太得体。二、OnKeyDown 事件。procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);beginif (Shift=ssCtrl) and (Key=VK_VK_ADD) thenbegin //请输入密码,自已做一输入板面,显示。之后再进行密码录入。 MessageDlg('Printing aborted', mtInformation, [mbOK],0);end;end;
 
后退
顶部