[sid401]

Привет всем.

Направьте меня пожалуйста в нужное русло.
Такую штуку нужно сделать.

Создать на форме поризвольное количество элементов типа TShape или других, в общем которые из себя будут являть прямоуглоьники и отслеживать нажатия на них мышью.

Саму технологию маленько не понимаю. Когда создаешь сам в процессе разработки процедуру OnClick там все понятно. А как если объекты еще не созданы? как отслеживать нажатие кнопки мыши на тот или иной элемент, который был создан в поцессе выполнения программы? если их к тому же много, скажем массив. Обработчик событий какой-то нужно мутить.


p.s. Delphi 2005

Заранее спасибо за советы

[Phedor]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure ShapeOnClick(Sender: TObject); begin   // Узнать на каком именно Shape щелкнули можно через TShape(Sender).Tag там будет хранится номер Shape в массиве, и соответственно к нему обращаться   Shapes[TShape(Sender).Tag].Свойство := значение; end; ... procedure ShapeCreate; ...   for i:=0 to 9 do   begin     Shapes[i] := TShape.Create(Self);     ...     Shapes[i].OnClick := ShapeOnClick; // <- Собственно то что Вам нужно     Shapes[i].Tag := i;     ...   end; end;