07.05.2013, 02:07
|
|
.
|
|
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
|
|
Цитата:
Код:
procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if move then
begin
(Sender as TImage).SetBounds((Sender as TImage).Left+X-X0,
(Sender as TImage).Top+Y-Y0,
(Sender as TImage).width,
(Sender as TImage).height);
end;
end;
|
Длинно слишком
Код:
procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if move and (Sender is TImage) then
with (Sender as TImage) do
SetBounds(Left + X - X0, Top + Y - Y0, Width, Height);
end;
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
|