如果我一起按ctrl键+向上的箭头的键产生什么事件？如果我一起按shilft键+向上的箭头的键产生什么事件？我只会写当我按了向上箭头产生的事件的代码！ (30分

如果我一起按ctrl键+向上的箭头的键产生什么事件？如果我一起按shilft键+向上的箭头的键产生什么事件？我只会写当我按了向上箭头产生的事件的代码！ (30分)<br />procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_up then
begin
showmessage('ss');
end;
end;
这个只是当我按了向上的箭头的事件！我想知道当我一起按下ctrl+up产生事件的代码！

我明白你的意思，你是想一起按这两个键子，然后处理一些事情，比如像qq那样，
一起按ctrl+enter，信息就发出去了，是这样吧，你可以这样写：
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=13) and (ssCtrl in Shift) then//key可以是你自己要定义的按键，ssctrl你也可以自己改
begin
………………
end
end;

接受答案了.