我想在DBGRID的ONKEYDOWN或ONKEYPRESS事件中实现功能组合键的功能，怎么实现？

[hzzkf]

比如按ctrl+delete触发一个事件

[hzzkf]

问题是我不知C的键值是多少

[tikkypeng]

{ VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
{ VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }

[tikkypeng]

if (ssCtrl in shift) And (Key=VK_Delete) then
begin
ShowMessage('OK!');
end

[tikkypeng]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in shift) And (Key=VK_RETURN) then
begin
ShowMessage('OK!');
end
end;

[hzzkf]

那如果是a+b呢？

[hzzkf]

我现在需要的是ctrl+键盘上的'C'

[xzm2000]

是a+b的话就使用keydown和keyup加一个标志变量组合就可以实现了

[tikkypeng]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in shift) And (Key=Ｃ的键值) then
begin
ShowMessage('OK!');
end
end;