請問，(100分)

J

jxmsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-01

• #1

請問，

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-01

• #2

procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin

if Key = 17 then

ShowMessage('是Ctrl键！');
end;

或者
procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin

if Key = VK_CONTROL then

ShowMessage('是Ctrl键！');
end;

 

D

delphi8511

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-01

• #3

检查CTRL键有没有按下：
if integer(GetKeyState(VK_CONTROL)) = -127 then

begin

showmessage('您按下的是CTRL鍵！');
end
else

begin

//
end;

 

D

delphi8511

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-01

• #4

VK_CONTROL： 表示任一个Ctrl键
VK_LCONTROL：左边的那个
VK_RCONTROL：右边的那个

 

J

jxmsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-01

• #5

多人接受答案了。

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-01

• #6

这样？
procedure TForm1.Edit1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin

if Shift =[ssCtrl] then

ShowMessage('asas');
end;