Мне нужно, чтобы по экрану бегало 12 картинок, все в хаотичном движении... И когда пользователь нажимает на одну из картинок, она останавливалась и полностью подчинялась пользователю, то есть он еще мышкой перетаскивет куда ему нужно.... Как это реальзивать??

У меня конечно была одна идея через таймеры, но как мне кажеться 12 таймеров на формуме это чересчур...
А если ли другой вариант!!!

Цитата(Mew @ 23.2.2005, 08:04)

по экрану бегало 12 картинок

Это легко. Создаешь наследника от Timage, добавляешь параметры, необходимые для реализации алгоритма перемещения, процедуру, которая будет выполнять перемещение по заданному алгоритму, конструктор, деструктор.
Потом создаешь TList или массив из 12 объектов.
Создаешь 12 объектов. В конструкторе должны назначаться случайные параметры. Кидаешь на форму.
По таймеру бежишь по массиву и вызываешь метод движения для каждого объекта.

Цитата(Mew @ 23.2.2005, 08:04)

нажимает на одну из картинок, она останавливалась и полностью подчинялась пользователю,

Заведи параметр, который будет говорить о том, что не нужно вызывать процедуру движения.

Цитата(Mew @ 23.2.2005, 08:04)

2 таймеров на формуме это чересчур...

Это лишнее. Одного таймера на 12 объектов более чем достаточно.

Mew
а еще проше так:

Код

const n = 3; // кол-во картинок var FDown: TImage; { здесь хранится компонент TImage,                     который перемешается в данный момент. Если nil, значит                     ничто не перемешается }    ox, oy: integer; // смешение по X и Y при нажатии на картинку    images: array [1..n] of TImage; procedure TForm1.FormCreate(Sender: TObject); begin  images[1] := image1;  images[2] := image2;  images[3] := image3; end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  ox := x;  oy := y;  fdown := timage(sender); end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  FDown := nil end; procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;  var Handled: Boolean); var pt: TPoint; begin  if (msg.message = WM_MOUSEMOVE) and (FDown <> nil) then begin    pt := ScreenToClient(msg.pt);    fdown.SetBounds(pt.x-ox, pt.y-oy, fdown.Width, fdown.Height);   end end; procedure TForm1.Timer1Timer(Sender: TObject); var i: byte; begin  for i := 1 to n do    if images[i] <> FDown then begin      // здесь алгоритм передвижения, для примера они просто появляются случайно в другом месте      images[i].SetBounds(random(width), random(height), images[i].Width, images[i].Height);    end; end;

всем Image'ам присвой одни и те же коды обработки OnMouseDown и OnMouseUp
с таймером понятно...
также еще на форму брось ApplicationEvents и назначь ему OnMessage