один код для нескольких картинок

[yukasey]

Доброго времени суток, господа! Помогите кто-нибудь в таком вопросе: есть 10 картинок (вместо кнопок) Image1, Image2..Image10. При OnMouseDown, OnMouseEnter, OnMouseLeave и OnMouseUp для всех 10-ти выполняется один и тот же код (изменение размера, позиции и т.д.). Как бы сделать это все одной функцией? А то больно уж нудно 10 раз писать одно и то же.

[grafgrial]

ну напиши сами функции и в инспекторе выбери нужную

[yukasey]

Сообщение от grafgrial

ну напиши сами функции и в инспекторе выбери нужную

Не выходит. Может я что не так сделал, но в инспекторе функция не отражается вообще. OnMouseDoun жму, а там пусто

[yukasey]

С функцией все понятно, все работает, но... она возвращает только одно значение, а мне нужно минимум 4. Возможно получится с процедурой, но тут у меня затык. Не знаю, что можно придумать вместо Image1.Width, Image1.Height, .Top, .Left, .Visible. Нужно же что-то, чтобы подходило ко всем Image.

[NetSpace]

with Form1 do for i:=1 to 10 do TImage(Controls[i]).Visible:=False;

это пример, чтоб все 10 картинок одновременно элегантно появлялись на форме, как по мановению волшебной палочки...думаю, умения присобачить в этот код другие действия у Вас хватит. если что, могу примеры свои скинуть - посмотрите...

[yukasey]

Сообщение от NetSpace

with Form1 do for i:=1 to 10 do TImage(Controls[i]).Visible:=False;

Спасибо, но это не совсем то. Мне нужно, чтобы при нажатии на ОДИН "имидж-кнопку" он менял сразу несколько своих свойств: размер, позицию и видимость. И так для всех 10-и, но по отдельности.
За примеры буду благодарен! Мыло: yvb777@yandex.ru

[Аватар]

procedure TForm1.ImageClick(Sender: TObject);
begin
  TImage(Sender).Left:=10;
... и т.д.
end;

add

в Image.Tag держите номер Image и по нем определяйте с чем имеете дело

[yukasey]

Сообщение от NetSpace

with Form1 do for i:=1 to 10 do TImage(Controls[i]).Visible:=False;

это пример, чтоб все 10 картинок одновременно элегантно появлялись на форме, как по мановению волшебной палочки...думаю, умения присобачить в этот код другие действия у Вас хватит. если что, могу примеры свои скинуть - посмотрите...

Большой человеческий СПАСИБО!!! Все получилось в лучшем виде!