Нестандартные горячие клавиши

[Marsel737]

Всем здрасте!

Хочу сделать горячие клавиши в проге, но не Ctrl+A или Shift+S, к примеру A+W

Такой код не прокатил:

if (chr(Key) in ['W', 'w']) and (chr(Key) in ['A', 'a']) then
begin
   ...
end;

Такой тоже:

if (key=VK_UP) and  (key=VK_LEFT) then
begin
  ...
end;

Поэтому спрашиваю у вас как сделать.

Вообщем то хочу сделать гоночки (вид сверху), ну и с управлением щас вожусь, а реализоваться всё будет в виде картинок (png), кстати картинку PNG можно поворачивать как обычную картинку к примеру на 30 градусов?

[raxp]

пробуйте так... просто событие FormKeyDown не содержит несколько key , а shift определяет ctr/shift/alt... можно и по таймеру... в KeyDown ввел только для того, чтоб лишний раз не вызывать

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 If ((GetKeyState(ord('W')) AND 128)=128) and
      ((GetKeyState(ord('A')) AND 128)=128) then messagebox(0, '', '', 0)
end;

зы: по второму вопросу заведите отдельную тему, перед этим поиск - "вращение картинки"