如何设置热件？ ( 积分: 100 )

Q

qym1113

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-15

• #1

我基于TSpeedButton自定了一个新的控件，并且增加了一个新的属性HotKey,定义类行为HotKey:TShortCut,我想将KeyDown（Sender:TObject;Key:Word;shift:TShift),和HotKey:TShortCut联系在一起，即：在运行时，如果按下HotKey相应的热件，新的控件会出现Down的状态，谢谢大家了！

 

Q

qym1113

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-15

• #2

我基于TSpeedButton自定了一个新的控件，并且增加了一个新的属性HotKey,定义类行为HotKey:TShortCut,我想将KeyDown（Sender:TObject;Key:Word;shift:TShift),和HotKey:TShortCut联系在一起，即：在运行时，如果按下HotKey相应的热件，新的控件会出现Down的状态，谢谢大家了！

 

R

RJU

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-15

• #3

设置SPEEDBUTTON.DOWN:=TRUE;

 

Q

qiuqiu133

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-15

• #4

设置SpeedButton.Allowup:=true
再设置SpeedButton.GroupIndex<>0
然后代码：SpeedButton.down:=true