有没有 模拟软键盘的控件阿！或者相应的代码可以提供阿！目前在做一个触摸屏的程序！

Question

有没有 模拟软键盘的控件阿！或者相应的代码可以提供阿！目前在做一个触摸屏的程序！
Email：[email protected]

Answer 1

可以自己写一个模拟软键盘的单元吧，记录下键盘的ASC码，然后模拟就好了

Answer 2

放几个按钮，然后模拟录入就是了
比如button1的caption是‘a’
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.SetFocus;
keybd_event(65,0,KEYEVENTF_EXTENDEDKEY or 0,0);
keybd_event(65,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;

Answer 3

有些键改变了ASCII码
 SHIFT = 0x10, 
            CONTROL = 0x11, 
            MENU = 0x12, 
            ESCAPE = 0x1B, 
            BACK = 0x08, 
            TAB = 0x09, 
            RETURN = 0x0D, 
            PRIOR = 0x21, 
            NEXT = 0x22, 
            END = 0x23, 
            HOME = 0x24, 
            LEFT = 0x25, 
            UP = 0x26, 
            RIGHT = 0x27, 
            DOWN = 0x28, 
            SELECT = 0x29, 
            PRINT = 0x2A, 
            EXECUTE = 0x2B, 
            SNAPSHOT = 0x2C, 
            INSERT = 0x2D, 
            DELETE = 0x2E, 
            HELP = 0x2F, 
            NUMPAD0 = 0x60, 
            NUMPAD1 = 0x61, 
            NUMPAD2 = 0x62, 
            NUMPAD3 = 0x63, 
            NUMPAD4 = 0x64, 
            NUMPAD5 = 0x65, 
            NUMPAD6 = 0x66, 
            NUMPAD7 = 0x67, 
            NUMPAD8 = 0x68, 
            NUMPAD9 = 0x69, 
            MULTIPLY = 0x6A, 
            ADD = 0x6B, 
            SEPARATOR = 0x6C, 
            SUBTRACT = 0x6D, 
            DECIMAL = 0x6E, 
            DIVIDE = 0x6F, 
            F1 = 0x70, 
            F2 = 0x71, 
            F3 = 0x72, 
            F4 = 0x73, 
            F5 = 0x74, 
            F6 = 0x75, 
            F7 = 0x76, 
            F8 = 0x77, 
            F9 = 0x78, 
            F10 = 0x79, 
            F11 = 0x7A, 
            F12 = 0x7B, 
            OEM_1 = 0xBA, // ',:' for US 
            OEM_PLUS = 0xBB, // '+' any country 
            OEM_COMMA = 0xBC, // ',' any country 
            OEM_MINUS = 0xBD, // '-' any country 
            OEM_PERIOD = 0xBE, // '.' any country 
            OEM_2 = 0xBF, // '/?' for US 
            OEM_3 = 0xC0, // '`~' for US 
            MEDIA_NEXT_TRACK = 0xB0, 
            MEDIA_PREV_TRACK = 0xB1, 
            MEDIA_STOP = 0xB2, 
            MEDIA_PLAY_PAUSE = 0xB3, 
            LWIN = 0x5B, 
            RWIN = 0x5C