по нажатию кнопки shape будет сдвигаться на несколько позиций в сторону (Delphi7)

[Alex21]

Сообщение от -HunteR-

Типо ГТА 2 или 1 ты идешь по улице и подходишь к входу (в магазин) и тут открывается форма с магазином, а форма города скрывается
kommunist:
А куда код вставлять?

Очень у вас все абстрактно...
Очень рекомендую почитать любой учебник по графике в Делфи.

[-HunteR-]

Ответа я тут недождусь
Закройте тему тогда

[Alex21]

Сообщение от -HunteR-

Ответа я тут недождусь
Закройте тему тогда

Как я понял - вы неверный путь выбрали. Для таких задач окнами ничего не создается.
Совет мой - очень даже стоящий - для начала желательно иметь представление о всех этапах решения какой-либо задачи.
Разбейте задачу на этапы и спрашивайте - последовательно, а не глобально.

[mihali4]

Ну вот, обидчивый какой!
Попробую суммировать то, что я понял в поставленной задаче и уже данные на это ответы.
Итак, движение имитируется, как было подсказано:
form1.Shape1.Left:=form1.Shape1.Lef t-10;
с проверкой на "натыкание" на препятствие.
Например:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; 
Shift: TShiftState; X, Y: Integer);
begin
Shape1.Left:=Shape1.Left-10; //очередное движение
if Shape1.Left<=100 then //если дошли до препятствия, то
begin
Form2:=TForm2.Create(Application); //создаем новую форму
Form1.Hide; //скрываем "старую" форму
Form2.ShowModal; //показываем новую форму и ждем, когда она закроется
Form2.Free; //освобождаем ресурсы новой формы
Form1.Show; //снова показываем "старую" форму
end;
end;

[-HunteR-]

mihali4:
Благодарю тебя за вся написанное - теперь я понял