Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

7th
Авг

Перемещение массива Image

Posted by micher under Delphi

Как сделать, чтобы для 2 картинок была одна и та же функция, но разные номера image в зависимости от того,какой выделен?

BDA



procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

//проверяем нажата ли левая кнопка мыши

if button<>mbLeft then move:=false

else begin

move:=true;

x0:=x; //запоминаем координату x

y0:=y; //запоминаем координату y

end;

end;
procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

var

im: timage;

begin
if move then

begin

im := Sender as timage;

im.SetBounds(im.Left+x-x0,im.Top+y-y0,im.width,im.height);

end;
end;
procedure TForm1.ImageMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

move:=false;

end;