在form的buttonclick中如何检查shift键是否按下?(50分)

C

cnwy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-22

• #1

在form的buttonclick中如何检查shift键是否按下?

 

毛

毛虎林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-22

• #2

在click事件中
使用函数GetKeyState(VK_KEY)
如果返回负值，改健正被按下；
正值，该健正被松开；
0的话没有动作。

 

N

netwind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-22

• #3

来晚了
procedure TForm1.Button2Click(Sender: TObject);
var
i:word;
begin
i:=getkeystate(VK_VK_SHIFT);
if (i and $80)=$80 then
begin
...
end;


end;

 

C

cnwy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-23

• #4

多人接受答案了。