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

X

xieyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #1

如何设置一个文本框的快捷键，如果 ALT+L

 

H

HammerLi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #2

在 OnKeyUp 中监测。

 

L

lilofox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #3

在keydown里干
proceduredo
Keydown(Sender: TObject;
var Key: Word;
Shift: TShiftState)
begin
if ssAlt in Shift then

begin
end;
end;

 

X

xf-wangyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #4

捕捉按键
然后edit1.SetFocus

 

Z

zwfyazl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #5

最简单的是使用labeledit ,在label的caption中指定（&T）
就可以了~！

 

独

独帅

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #6

设置与它关联的那个label的FocusControl属性就可以了
Label1.caption := '&L'
Label1.FocusControl := Edit1;

 

X

xieyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-19

• #7

接受答案了.