Управление с клавиатуры

[PikeIt]

Блин Делаю в Делфи(2005 NET) подобие игрушки, и сталкнулся с одной проблемой
Как сделать чтобы например при нажатие на клавишу "стрелка вверх" на клавиатуре, нажималась кнопка Button1 (MouseClickDown) на форме. А при отжатие кнопки, Button1 отжималась (MouseClickUp).
Если можно как можно подробнее. Что надо дабавить в Uses, И как вообще сделать чтобы отслеживалось нажатие клавиш.
Заранее большое спасибо!

[-=DeS=-]

Смотри в событиях формы от OnKeyDown до OnPaint...

[PikeIt]

Сообщение от -=DeS=-

Смотри в событиях формы от OnKeyDown до OnPaint...

Я когда создавал выбрал Windows form application - Delphi for .Net
И там вместо OnKeyDown.. , KeyDown..
Но при этом помоиму форма реагирует на нажатие любой клавиши а не какойто определенной.
а мне надо на 3 клавиши сделать управление.

Подскажите пожалуйста как ето сделать, и есле можно напишите пример(Пускай в примере при нажатие на клавиатуре стрелки вверх, например, ImageBox перемещается в верх, при нажатие стрелки влево - влево и тд)

[Квэнди]

Сообщение от PikeIt

Я когда создавал выбрал Windows form application - Delphi for .Net
И там вместо OnKeyDown.. , KeyDown..
Но при этом помоиму форма реагирует на нажатие любой клавиши а не какойто определенной.
а мне надо на 3 клавиши сделать управление.

Подскажите пожалуйста как ето сделать, и есле можно напишите пример(Пускай в примере при нажатие на клавиатуре стрелки вверх, например, ImageBox перемещается в верх, при нажатие стрелки влево - влево и тд)

Keyprewie формы в true
в onkeypress обрабатываешь переданный туда параметр (в зависимости от типа события либо char либо word ) и если это тот символ, который тебе необходимо обработать, реагируешь.

[Flash_]

Подобная тема есть уже - смотри здесь:
http://programmersforum.ru/showthread.php?t=982

[Квэнди]

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm5 = class(TForm)
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of
  37:showmessage('Нажата клавиша влево');
  38:showmessage('Нажата клавиша вверх');
  39:showmessage('Нажата клавиша вправо');
  40:showmessage('Нажата клавиша вниз');
end;
end;

end.

[Квэнди]

О всем Спасибо! получилось!