Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.10.2018, 15:05   #1
Виталий2266
Новичок
Джуниор
 
Регистрация: 18.10.2018
Сообщений: 8
По умолчанию Хочу сделать перемещение объектов, но перемещается только один

Перемещается только 1 объект shp1 (на буквы не обращайте внимание,в delphi какой-то баг,в действительности там русские буквы)
Код:
if (key='w')or(Key='W')or(Key='ö')or(Key='Ö') then
shp1.Top:=shp1.Top-1;
shp2.Top:=shp2.Top-1;
shp3.Top:=shp3.Top-1;
if (key='s')or(Key='S')or(Key='Û')or(Key='û') then
shp1.Top:=shp1.Top+1;
shp2.Top:=shp2.Top+1;
shp3.Top:=shp3.Top+1;
if (key='a')or(Key='A')or(Key='ô')or(Key='Ô') then
shp1.Left:=shp1.left-1;
shp2.left:=shp2.left-1;
shp3.left:=shp3.left-1;
if (key='d')or(Key='D')or(Key='â')or(Key='Â') then
shp1.left:=shp1.left+1;
shp2.left:=shp2.left+1;
shp3.left:=shp3.left+1;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

Последний раз редактировалось Serge_Bliznykov; 18.10.2018 в 15:10.
Виталий2266 вне форума Ответить с цитированием
Старый 18.10.2018, 15:07   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

бегин и энд нужны
p51x вне форума Ответить с цитированием
Старый 18.10.2018, 15:07   #3
Виталий2266
Новичок
Джуниор
 
Регистрация: 18.10.2018
Сообщений: 8
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
бегин и энд нужны
они есть,просто я их не скопировал,программа работает, но двигается один объект,а нужно чтобы сразу 3
Виталий2266 вне форума Ответить с цитированием
Старый 18.10.2018, 15:10   #4
Виталий2266
Новичок
Джуниор
 
Регистрация: 18.10.2018
Сообщений: 8
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
бегин и энд нужны
Все,я понял где нужны они, спасибо!
Виталий2266 вне форума Ответить с цитированием
Старый 18.10.2018, 15:10   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Виталий2266 Посмотреть сообщение
они есть,просто
после then нужны begin и end для всех операций (команд), которые это условие затрагивает.

по оформлению
1) чтобы не было кракозябр, ПЕРЕД копированием в буфер обмена нужно включить русскую раскладку клавиатуры
2) код нужно оформлять тегами [CODE]
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны два слова. Напечатать только те буквы слов, которые встречаются в обоих словах только один раз. EDWIN503 Общие вопросы по Java, Java SE, Kotlin 3 25.09.2017 03:37
блок с логотипом занимает по всей ширине окна а с права от него хочу сделать меню, а получается только под этим блоком nikytt HTML и CSS 1 27.11.2015 17:33
нужно сделать так чтобы в Edit1 вводишь Код клиента и после этого в БД остался только этот один клиент Alexander1997 БД в Delphi 9 19.06.2015 04:23
Перемещение объектов _-Re@l-_ Общие вопросы Delphi 10 17.06.2010 12:12
Как сделать что-бы Таймер срабатывал только один раз? Greg Компоненты Delphi 11 16.12.2006 01:25