|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Движение 2-ух объектов одновременно
На форме есть 2 Shape в виде круга. Я прописал их движение на кнопки
Первый передвигается на стрелочки, второй на NUMPAD'e. Проблема в том, что они одновременно двигаться не хотят. Писал через оператор Case, if и задавал горячие клавиши и всё равно двигаются только по очереди. Код:
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. |