Изображения и подписи к ним

[Shturmer]

Доброго времени суток!
Не знаю как лучше поступить в ситуации - На форме может одновременно находится до 70 картинок. Если кликаем мышкой на картинку надо чтобы менялось значение в label или edit (неважно) под этой картинкой. Правая - уменьшаем значение. Левая - увеличиваем.
Собна вопрос. Сделать еще 70 label помимо 70 img и написать по 70 обработчиков нажатия мышиных кнопок, для каждого image? или есть какое-нить более изящное решение? МОжно ли объекту Timage "дописать" свойство caption, которое бы располагалось под картинкой? и если можно, то как? Я чета совершенно не знаю как писать свои компоненты, до этого довольствовался стандартными только.
Тогда бы можно было бы обойтись двумся обработчиками =)
Гугление по различным сочетаниям слов caption, image, изображение, подпись и пр, не дало результатов.
Спасибо за ответы.

[pu4koff]

Несколько вариантов.
1. Создать свой компонент. Суть его будет сводиться к тому, что он будет подобно панели хранить TImage и TLabel, позиционировать их, подгонять размеры под нужную область и т.д. и т.п.
2. Можно создать TFrame, кинуть на него TImage и TLabel, написать нужные обработчики. Потом нужно будет на форме создавать не отдельно TImage и TLabel, а уже скомпонованный TFrame
3. Создаём TImage, TLabel как обычно, но все TLabel записываем в массив, а всем TImage в свойство Tag прописываем индекс TLabel в этом самом массиве.
Вешаем на все картинки один обработчик, в нём будет параметр Sender (он будет указывать на тот TImage, по которому нажмут). Обработчик в итоге будет выглядеть примерно так:

var
  label_index: integer;
begin
  label_index := TImage(Sender).Tag;
  if (...)
    then labels[label_index].Caption := 'Уменьшить'
    else labels[label_index].Caption := 'Увеличить';
end;

Вариант 3 собственно можно всяко разно реализовать, на сколько фантазии хватит. Можно и без массива обойтись, а назвать все TImage по типу image1, image2,... а все TLabel: label_image1, label_image2,... ну и потом ориентироваться по свойству Name контролов.

[Shturmer]

Спасибо. Пока воспользовался советом с фреймами. Пока вроде корректно. Но т.к. работа только начата, то возможно еще придется что-то менять.