用delphiXE怎么做屏幕键盘？
delphi吧
全部回复
仅看楼主
level 5
好男人-阿深 楼主
procedure TFormLogin.scGPBtn_0Click(Sender: TObject); //“0”键
begin
keybd_event(48,0,0,0);
keybd_event(48,0,KEYEVENTF_KEYUP,0);
end;
按第一下时可以输入一个“0”，再按就无法输入了（没有反应）；清空后再输入也只能输入一个“0”。
2022年08月01日 22点08分 1
level 5
好男人-阿深 楼主
不会吧，看都没有人看？？？
2022年08月02日 14点08分 2
level 5
好男人-阿深 楼主
求救！求救！求救！
求救！求救！求救！
求救！求救！求救！
2022年08月03日 16点08分 3
level 4
葙見吥如懷唸
用的啥类型按钮？我用TSpeedButton类型的不要有tabstop属性的都可以
2022年08月04日 05点08分 4
好男人-阿深
scGPButton
2022年08月04日 17点08分
好男人-阿深
procedure TFormLogin.BindTxtEnter(Sender: TObject); var edit: Tedit; pt: TPoint; x, y: integer; begin if not (Assigned(Sender)) then exit; edit := Sender as Tedit; end; 这是怎么意思？
2022年08月05日 04点08分
level 5
好男人-阿深 楼主
TabStop的属性好像有！
2022年08月04日 17点08分 5
level 5
wooo139
我只用过delphi7，猜想原因会不会是按下按钮后编辑框失去焦点,如果是这样就把按钮的CanFocused设为false
2022年08月05日 03点08分 6
好男人-阿深
所有的键都是“CanFocused”为False的，不然也不美观了！
2022年08月05日 04点08分
好男人-阿深
所有的键都是“CanFocused”为False的，不然也不美观了！
2022年08月05日 04点08分
好男人-阿深
keybd_event它是不是本身就不支持二次输入的？网上找了一圈基本上都是这样的结果，如果不用它用其它方法写进去效果或者说速度上不会慢吧？
2022年08月05日 04点08分
wooo139
我用delphi7试下来keybd_event是可以多次输入的。要么就是输入框设置问题了。其他方法应该很多的，比如edit1.text:=edit1.text+'0'之类的
2022年08月05日 06点08分
level 5
好男人-阿深 楼主
有知道朋友告诉下我这个初哥仔，把码贴上来我好试试！
2022年08月05日 07点08分 7
level 5
好男人-阿深 楼主
数字“0”键代码：SeedButton
begin
keybd_event(48,0,0,0);
keybd_event(48,0,KEYEVENTF_KEYUP,0);
end;
清空键代码：scGPButton
begin
scGPEdt_No.Text:='';
scGPPsWdEdt_Pw.Text:='';
scGPEdt_No.SetFocus;
end;
用4楼的方法，用SeedButton做的数字键速度跟得上可以正常输入，但清空按钮的功能用不了！
2022年08月05日 13点08分 8
level 5
好男人-阿深 楼主
数字“0”键代码：Image
begin
keybd_event(48,0,0,0);
keybd_event(48,0,KEYEVENTF_KEYUP,0);
end;
清空键代码：scGPButton
begin
scGPEdt_No.Text:='';
scGPPsWdEdt_Pw.Text:='';
scGPEdt_No.SetFocus;
end;
用6楼的方法，用Image做的数字键速度跟不上，1秒后再输入时可以正常输入，但清空按钮的功能用不了！
2022年08月05日 13点08分 9
level 5
好男人-阿深 楼主
全部统一用TSeedButton做的按钮（数字和功能键），可以正常输入了；SeedButton的边框和背景怎么改变颜色或透明度呢？？？高手指点一下！！！
多谢4楼和6楼的朋友先，有时间再给点提示呗！[大拇指]
2022年08月05日 14点08分 10
level 5
好男人-阿深 楼主
这个问题算完了吧，上层属于新问题了，我重新发了一贴，可以到新贴回答新问题；欢迎来稿！谢谢！
DelphiXE中的TSeedButton的边框和背景色怎么设置？【delphi吧】_百度贴吧 https://tieba.baidu.com/p/7961199235
2022年08月07日 03点08分 11
level 1
lrylryhate
你要输入两个零的话是不是得拼接
2023年03月08日 07点03分 12
好男人-阿深
没有，用这个TSeedButton就可以了。
2024年01月02日 14点01分
level 4
葙見吥如懷唸
delphi11.2+TscGPButton按钮，按钮CanFocused := False; TabStop := False; Tag := 对应ASCII码，按钮事件：
procedure TForm1.scGPButton1Click(Sender: TObject);
var
mTag: Integer;
begin
mTag := TscGPButton(Sender).Tag;
if mTag = 127 then
begin
scGPEdit1.SelectAll;
mTag := 8;
end;
keybd_event(mTag,0,0,0);
keybd_event(mTag,0,KEYEVENTF_KEYUP,0);
end;
用TscGPButton控件可以设置边框宽度颜色，背景颜色，透明度，不需要用TSpeedButton控件搞
2024年01月03日 02点01分 13
1