перемещение image

[dmitriegorovih]

Procedure Tform1. novimage;
Var
K:Timage;
Begin
K:=Timage.create(self);
k.parent:=self;
k.onMouseMove:=form1.onMouseMove;
k.onMouseDown:=form1. onMouseDown;
k.onMouseUp:=Form1. MouseUp;

Так вот после этого каждый новый image будет перемещать то, что я напишу в обработчик.
Теперь сам вопрос как сделать перемещение image индивидуальным?

[Selestis]

В обработчиках событий пишите

TImage(Sender).*** //-это и будет ваш Image (или форма)

[dmitriegorovih]

Спасибо работает
А вот

TImage(Sender).*** //-это и будет ваш Image (или форма)

Сюда тока Sender image надо встовлять или чтото другое можно?

[Stilet]

или чтото другое можно?

Можно все что угодно.
Здесь имеется ввиду что параметр Sender указывает на контрол, чей обработчик всплыл. Но поскольку он имеет тип TObject его нужно приводить к типу TImage потому и пишут TImage(Sender)

[VintProg]

У меня не че не перемещается, как собственно это сделать.

[Stilet]

VintProg

А вот автор тебе расскажет. Раз он взялся за эту задачу значит уже представляет как
И нам будет полезно узнать.

[dmitriegorovih]

У меня не че не перемещается, как собственно это сделать.

Значит у меня Delphi 7
кидаем на форму image1 и кнопку, чтоб создавались image(ы)
во "всеобщий var" пишем следующие

var
x2,y2,n:integer;
nagata:boolean;

в обработчике onmousedown пишем следующие

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 nagata:=true;
x2:=x;
y2:=y;
end;

в обработчике onMouseMove пишем следующие

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if nagata=true then begin
if x<>x2 then begin
Timage(sender).Left:=Timage(sender).Left+(x-x2)
end;
if y<>y2 then begin
Timage(sender).Top:=Timage(sender).Top+(y-y2)
end;
end;
end;

в обработчике onMouseUp пишем следующие

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
nagata:=false;
end;

по нажатию кнопки пишем следующие

procedure TForm1.Button1Click(Sender: TObject);
Var
K:Timage;
Begin
K:=Timage.create(self);
k.parent:=self;
k.picture:=image1.picture;
k.onMouseMove:=image1.onMouseMove;
k.onMouseDown:=image1. onMouseDown;
k.onMouseUp:=image1.onMouseUp;
k.name:='Image_'+inttostr(n);
inc(n);
end;

[Stilet]

Позволь показать тебе еще один способ:
Кидаем на форму TPanel На нее кидаем TImage, и расстягиваем Image на AlClient чтоб оно заполнило всю панель.
Далее в в обработчике зажатия мышки для Image пиешм:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const  Sc_dragmove = $F012;
begin
  ReleaseCapture;
  Panel1.Perform(WM_SYSCOMMAND, Sc_dragmove, 0);
end;

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

[dmitriegorovih]

Кидаем на форму TPanel На нее кидаем TImage

Не пойдёт надо будет ещё и креатить panel(и) и image(ы)

[Stilet]

надо будет ещё и креатить panel(и)

Ужос какие сложности, не так ли?
Впрочем хозяин - барин. Мое дело предложить-твое отказаться.