[KORN]

Привет всем!!!!!!

Очень нужна помощь в перемещении модели по форме.Вся прога написана тока нужно перемищать модель строго вправо влево вниз вверх,кто возьмётся помочь выложу код,либо сюда,либо на личку.
Здавать работу нужно 18.12.06
Очень надеюсь навашу помощь.
Моя личка:timosha-13@mail.ru
Зарание спасибо!!!!!!

[Aristarh Dark]

Какой вопрос, такой и ответ:

Код:

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;