[pANda777]

На форме есть 2 Shape в виде круга. Я прописал их движение на кнопки
Первый передвигается на стрелочки, второй на NUMPAD'e.

Проблема в том, что они одновременно двигаться не хотят. Писал через оператор Case, if и задавал горячие клавиши и всё равно двигаются только по очереди.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

case Key of     VK_UP: begin             Gamer1.Top := Gamer1.Top -12;             Exit;            end;     VK_LEFT: begin             Gamer1.Left := Gamer1.Left-12;             Exit;            end;     VK_Right: begin             Gamer1.Left := Gamer1.Left+12;             Exit;            end;     VK_DOWN: begin             Gamer1.Top := Gamer1.Top +12;             Exit;            end;  //end; //case Key  of      {VK_NUMPAD8:  begin                Gamer2.Top := Gamer2.Top -12;                Exit;               end;    VK_NUMPAD4:  begin                Gamer2.Left := Gamer2.Left -12;                Exit;               end;    VK_NUMPAD6:  begin                Gamer2.Left := Gamer2.Left +12;                Exit;               end;    VK_NUMPAD5:  begin                Gamer2.Top := Gamer2.Top +12;                Exit;               end;  end;}

примерный код. Если объединять в 1 Case то так же двигаются по 1.

[Alegun]

А NumLock зажечь пробовали? без горящего светодиода коды для основных стрелок и на цифровой части совпадают. Но это тоже не поможет, будет двигаться тот шейп, кого двинули первым, нужно выносить перемещение из обработчика жима на таймер, а из него следить за состоянием клавиш посредством вызова GetKeyboardState для TKeyboardState

[lmikle]

Вешай поток и в нем проверяй через GetKeyState.

[Страдалецъ]

Это не совсем так. Если вы будете быстро нажимать и отпускать клавиши, то все будет работать как задумано, а вот если вы зажмете одну клавишу и не отпуская ее нажмете вторую это уже будет не два разных нажатия а одно сложное и обрабатывать его тоже надо соответственно, а для этого есть функция GetAsyncKeyState(). Применительно к вашим шейпам делаем проверку на нажатие клавиши А:

Код:

1	if GetAsyncKeyState(65) < 0 then Shape2.Left := Shape2.Left - 1;

Помещать в кейс обработку в этом случае нельзя, т.к. у вас могут быть одновременно нажато намного больше 1 клавиши.

[Alegun]

Да на таймере всёж легче выполнить, вот пример под D7