菜鸟提问，请多多关照啊！——SpeedButton(30分)

C

cauvec

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-16

• #1

怎样才能得到像windows自带的计算器一样的效果
比如按一下键盘上的6，界面上的speedbutton（6）就按一下
分数不多，请多多关照啊

 

L

lldhz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-16

• #2

我只能说说思路：
你写一个函数就是获得键盘上的键值，获得后出发相应的SpeedButton应该就可以了

 

C

cauvec

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-16

• #3

那样好像只能得到按键的功能，并不能产生按下去的动作效果

 

L

lldhz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-16

• #4

我刚刚试了一下。你的SpeedButton,不做触发事件，按是可以达到效果的。
你把所有的处理都在获得键值的函数中处理就可以了。

 

8

816

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-16

• #5

给你发走了。查收。
我在QQ上叫随和。嘿嘿。

 

L

lldhz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-16

• #6

呵呵，给我也发个行吗？？
lld_hz@163.com

 

C

cauvec

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-16

• #7

那位富翁在线快帮帮忙啊
小问题来着喔

 

L

lldhz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-16

• #8

QQ：30196426 名字一样！
我在做！

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-16

• #9

将 Form 的 keypreview 设为 true
然后处理两个Form事件:OnKeyDown,OnKeyUp
procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
IF KEY=ORD('6') then
speedbutton6.Perform(WM_LBUTTONDOWN,0,0);
end;

procedure TForm1.FormKeyUp(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
IF KEY=ORD('6') then
speedbutton6.Perform(WM_LBUTTONUP,0,0);
end;

//这里的 6 是大键盘的！！

 

老

老人家

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-16

• #10

if key = '6' then
speedbutton6.down := True;

 

C

cauvec

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-16

• #11

多人接受答案了。