F ff_ff Unregistered / Unconfirmed GUEST, unregistred user! 2009-01-29 #1 TEdit如何得到按键信息并显示出来？ 例如：用户在TEDIT上 按 Ctrl+F1, TEdit上显示Ctrl+F1
F ff_ff Unregistered / Unconfirmed GUEST, unregistred user! 2009-01-29 #3 keyDown事件中可以得到 键盘的ASCII值， 怎样由ASCII值转成字母？
L luoyanqing119 Unregistered / Unconfirmed GUEST, unregistred user! 2009-01-29 #5 对于一些ASCII码,DELPHI并没有做封装,因些自己写代码时现就可以了.例如:if key=#13 thenedit1.text:='你按的是回车键';用代码转化一下就可以了.
风 风铃夜思雨 Unregistered / Unconfirmed GUEST, unregistred user! 2009-01-29 #6 procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var S:String;begin if ssCtrl in Shift then S := 'CTRL' else if ssShift in Shift then S :='Shift' else if ssAlt in Shift then S :='Alt'; memo1.lines.add(Char(Key));end;
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var S:String;begin if ssCtrl in Shift then S := 'CTRL' else if ssShift in Shift then S :='Shift' else if ssAlt in Shift then S :='Alt'; memo1.lines.add(Char(Key));end;
F ff_ff Unregistered / Unconfirmed GUEST, unregistred user! 2009-01-29 #7 对应功能键,onkeydown事件 的 char 值不对应。F1 对应 pF2 对应 q ..Enter 键 检测不到。TEDIT如何捕捉到所有按键？
A asnychen Unregistered / Unconfirmed GUEST, unregistred user! 2009-02-04 #9 Edit1KeyDown中用 if Key=VK_CONTROL then showmessage('ctrl');
