如何设置一个文本框的快捷键,如果 ALT+L(10分)

  • 主题发起人 主题发起人 xieyj
  • 开始时间 开始时间
X

xieyj

Unregistered / Unconfirmed
GUEST, unregistred user!
如何设置一个文本框的快捷键,如果 ALT+L
 
在 OnKeyUp 中监测。
 
在keydown里干
proceduredo
Keydown(Sender: TObject;
var Key: Word;
Shift: TShiftState);)
begin
if ssAlt in Shift then

begin
end;
end;
 
捕捉按键
然后edit1.SetFocus
 
最简单的是使用labeledit ,在label的caption中指定(&T)
就可以了~!
 
设置与它关联的那个label的FocusControl属性就可以了
Label1.caption := '&L'
Label1.FocusControl := Edit1;
 
接受答案了.
 
后退
顶部