如何在Keydown里面判断用户按下了Ctrl+箭头（指上下左右等），。。。。

Question

如题
我想这样做，就是像在delphi窗口设计那样，选中一个控件，然后按下ctrl+箭头就可以调整控件的位置，这样该如何实现阿？？？

Answer 1

对OnKeyDown的参数Shift判断
Edit1.Text:='';
if ssCtrl in Shift then Edit1.Text:=Edit1.Text+'CTRL+';
if ssAlt in Shift then Edit1.Text:=Edit1.Text+'ALT+';
if ssShift in Shift then Edit1.Text:=Edit1.Text+'SHIFT+';
Edit1.Text:=Edit1.Text+CHR(Key);至于是左还是右就不知道了

Answer 2

key 
左 37
右 39
上 38
下 40

Answer 3

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Shift>=[ssalt]// and (activecontrol.Name='button1')
then  if key=VK_UP then
      begin
        activecontrol.Top:=activecontrol.top-10;
      end;
end;

Answer 4

直接使用虚拟键就是，不用具体比较它的ASCII值。