Перемещение картинок

Постановка задачи. Проект демонстрирует использование компонента TImage, методы BringToFront и SendToBack.

Реализация. Заведите две картинки и сохраните их в папке проекта. Положите на форму два компонента TImage и одну кнопку. Изначально картинки лежат одна на другой. Кликая на кнопку, меняем картинки, выставляя по очереди одну из них на передний или задний план. Понадобится глобальная переменная flag:

var Flag: boolean; // флаг перемещения картинок

В процедуре TForm1.FormCreate(Sender: TObject) задаем начальные настройки.

procedure TForm1.FormCreate(Sender: TObject);

begin

Image1.Picture.LoadFromFile('school.bmp');

// Загружаем первую картинку

Image2.Picture.LoadFromFile('support.bmp');

// Загружаем вторую картинку

// Расположение верхнего левого угла Image1

Image1.Left:=0;

Image1.Top:=0;

// Задаем ширину первой картинки

Image1.Width:=250;

// Задаем высоту первой картинки

Image1.Height:=250;

// Расположение верхнего левого угла Image2

Image2.Left:=0;

Image2.Top:=0;

// Задаем ширину и высоту второй картинки

Image2.Width:=250;

Image2.Height:=250;

// Растягиваем первую и вторую картинки по площади

Image1.Stretch:=True;

Image2.Stretch:=True;

Flag:=true; // Изначально показана вторая картинка

end;

В обработчике события OnClick кнопки Button1 по очереди выдвигаем первую картинку на передний план и убираем ее на задний.

procedure TForm1.Button1Click(Sender: TObject);

begin

if Flag then

begin

Image1.BringToFront;

// Выдвигаем первую картинку на передний план

Flag:=False;

end

else

begin

Image1.SendToBack;

// Убираем первую картинку на задний план

Flag:=True;

end;

end;