Показать сообщение отдельно
  #4  
Старый 07.05.2013, 01:55
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Сначала объявить вот это
Код:
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;
затем нужно для всех image в обжект инспекторе сделать так
Код:
OnMouseDown = Image2MouseDown;
OnMouseMove = Image2MouseMove;
OnMouseUp = Image2MouseUp;
и всё
Ответить с цитированием