Клавиатура

[Fenix_Elite]

Здраствуйте, я новичок в програмировании и столкнулся с проблемой, мне нужно что бы при нажатии на клавишу(пусть будет стрелка влево) BitBtn перемещался, я написал

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = 37 then BitBtn1.Left:=  BitBtn.Left+5;
 end;

и при нажатии на Стрелку ничего не пройсходит, просто фокус(ну пунктирная линия вокруг кнопки) переходит с одно кнопки на другую. KeyPreview=True
Подскажите что делать? и еще вопрос срузу что сделать что бы убрать эту пунктирную линию, и что бы BitBtn не изменялся при нажатии

[_Dmitry]

Событие OnKeyDown не выполняется при нажатии стрелок.
Кинь на форму компонент ApplicationEvents с вкладки Additional и для события OnMessage создай следующий обработчик:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.message = WM_KEYDOWN) and (Msg.wParam = 37) then
    BitBtn1.Left:=BitBtn1.Left+5;
end;

[Fenix_Elite]

Блин щас хз что делать, мне нужно что если left у bitbtn > 100 то при нажатии на левую стрелку ничего не происходило, пробовал писать App..events1.Destroy вроде работает, но теперь вопрос как возобновить эту процедуру при нажатии допустим на кнопку1, пробовал Activate эфекта нет=(

[_Dmitry]

Проверяйте все условия в одном обработчике:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.message = WM_KEYDOWN) and (Msg.wParam = 37) then
    if BitBtn1.Left <= 100 then BitBtn1.Left:=BitBtn1.Left+5;
end;

[mihali4]

Событие OnKeyDown не выполняется при нажатии стрелок.

Позволю себе не согласиться с вами, коллега.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=VK_LEFT) then
Button1.Left:=Button1.Left-5;
end;

Если всем компонентам выставить свойство TabStop=False, то воспринимать это будет любой компонент, указанный в процедуре (в данном случае Button1).

[Fenix_Elite]

Это работает до первого нажатия на любую кнопку, потом стрелка просто типа как подсвечивает кнопки пунктиром