|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Перемещение модели
Привет всем!!!!!!
Очень нужна помощь в перемещении модели по форме.Вся прога написана тока нужно перемищать модель строго вправо влево вниз вверх,кто возьмётся помочь выложу код,либо сюда,либо на личку. Здавать работу нужно 18.12.06 Очень надеюсь навашу помощь. Моя личка:timosha-13@mail.ru Зарание спасибо!!!!!! |
#2
|
||||
|
||||
Какой вопрос, такой и ответ:
Код:
procedure MoveUp(Model:TControl); begin Model.Top:=Model.Top-1; end; procedure MoveDown(Model:TControl); begin Model.Top:=Model.Top+1; end; procedure MoveLeft(Model:TControl); begin Model.Left:=Model.Left-1; end; procedure MoveRight(Model:TControl); begin Model.Left:=Model.Left+1; end; |