Показать сообщение отдельно
  #9  
Старый 07.05.2013, 02:07
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 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 в.д.
Ответить с цитированием