Динамически создаваемые обьекты.

[vovken1997]

Доброго времени суток!
У меня проблема с динамически создаваемыми image. Они создаються, но я не знаю как для них написать разные обработчики событий. То есть я хочу чтоб по клику на разные image происходили разные действия. А именно открывались разные файлы. К примеру щелкаю на image1 открывается c:\1.exe , на image2 открывается c:\2.lnk и т.д.
Если я пишу images[i].onClick:=Button1Click; , то по щелочку на каждый элемент происходит одно и то же событие.
Пути файлов для каждого image лежат в масиве. Как это сделать, чтоб по щелчкам на разные image открывались разные файлы ???

[Аватар]

Например так - каждому Image в свойство TAG засунуть уникальное число. В единственном обработчике на основанни значения этого свойства делать соответствующее действие

[chertovich]

в Button1Click пишем

for i := 0 to High(Mass) do
begin
  if Mass[i] = Sender then
  begin
    Images[i]. ... // загрузка, i преобразуем к строке
    Break;
  end;
end;

[dolphin705]

А я каждому в свойстве name указывал порядковый номер i при создании, дальше как Аватар пишет.

[Utkin]

Дык он их и так индексирует по переменной i. Ему нужно только куда-нибудь передавать этот параметр, чтобы потом выбрать нужное действие.

[vovken1997]

Хм...
Спасибо! Вечером обязательно попробую.

Но я не много не понял. Как в Button1Click определить каким image оно вызвано. Ведь если я засуну уник. число то с чем мне его сравнивать? Ведь я не знаю каким image вызвано событие, а значит не знаю tag этого image.

[evg_m]

Как в Button1Click определить каким image оно вызвано.

procedure TForm1.Button1Click(sender: TObject);

как ты думаешь для чего здесь "ненужный" параметр. А он-то и есть ИМЕННО то, что тебе нужно. Сcылка именно на тот объект (Image/Button/....) для которого генерится событие.

(sender as TImage)  // нужный тебе Image
(sender as TImage).tag // нужное св-во нужного Image

[vovken1997]

Спасибо!!!
Выручили.