Програмное нажатие на клавиши

[mustang007]

Привет всем! Скажите пожалуиста как программно нажать на клавишу 'A' или 'D' просто я пробывал как vk_a но не получается..И так-же тока на русские буквы

[Kotofff]

Дай код как ты делаешь ...
Будет проще посмотреть в чем дело ...

[apromix]

В событии FormKeyUp пишите:

case Key of
    VK_LEFT, ord('A'): код
    VK_RIGHT, ord('D'): код
    VK_UP, ord('W'): код
    VK_DOWN, ord('S'): код
end;

[mustang007]

Я хоче сделать чтоб две картинки можно было двигать по полю. ! картинку стрелочками а 2 буквами, так вот с 2 проблема.

const
x = 10;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_left then Image1.Left := Image1.Left - x;
if key = VK_right then Image1.Left := Image1.Left + x;
if Image1.Left > 295 then Image1.Left := 296;
if Image1.Left < 0 then Image1.Left := 0;
end;
end.

Это чтоб двигать первую.

[apromix]

Может вот так:

const
x = 10;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_left then Image1.Left := Image1.Left - x1;
if key = VK_right then Image1.Left := Image1.Left + x1;
if key = ord('A') then Image2.Left := Image1.Left - x2;
if key = ord('D') then Image2.Left := Image1.Left + x2;
if Image1.Left > 295 then Image1.Left := 296;
if Image1.Left < 0 then Image1.Left := 0;
if Image2.Left > 295 then Image2.Left := 296;
if Image2.Left < 0 then Image2.Left := 0;
end;
end.

[mustang007]

о спасибо! тока там небольшая помарочка у вас

- x1;

а надо

- x-1;

[apromix]

Главное, что разобрались и все заработало