Присвоение одних и тех же команд

[gadilla_cs]

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

PS этот код ограничивает движение картинок, нужно что бы код выполнялся каждой поочередно.

[Sibedir]

Что такое "картинки"? Это объект какой? Тогда описание класса в студию. Или же это TPicture?

PS этот код ограничивает движение картинок, нужно что бы код выполнялся каждой поочередно.

Опять же, где и кто двигается? Выкладывайте что есть.

[asmodey1]

Уже несколько раз рассказывали - делаете обработчик для одной картинки и назначаете его всем остальным. Тонкость только одна - указывать не имя конкретной картинки, а Sender - компонент, инициировавший обработчик, т.е. любая из картинок.

[gadilla_cs]

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

Уже несколько раз рассказывали - делаете обработчик для одной картинки и назначаете его всем остальным. Тонкость только одна - указывать не имя конкретной картинки, а Sender - компонент, инициировавший обработчик, т.е. любая из картинок.

Мало сижу в делфи, по этому еще много не понимаю

попробую разобраться, т.е. я сделал определенный кусок кода для картинки, это у нас обработчик так?

а вот поясните пожалуйста как мне присвоить его всем остальным?

[Pein95]

сделайте етото кусок кода функцией..

[asmodey1]

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

я сделал определенный кусок кода для картинки, это у нас обработчик так?

Все правильно. Теперь берем любую другую картинку, в инспекторе объектов в том же событии назначаем этот обработчик.
Например - для Image3 назначаем обработчик

procedure TForm1.Image3Click(Sender: TObject);

но каким образом ? Идем налево - в инспектор объектов, выбираем там событие OnClick для нашей ВЫРАННОЙ Image3, жмем на "треугольничек" выбора обработчика и выбираем "Image1Click".
Теперь третьей картинке назначен тот же самый обработчик, что и первой...
Но...
В обработчике мы пишем:

if (Sender is TImage) then begin
(Sender as TImage).Height:=300; // это просто для примера
или
with (Sender as TImage) do
begin
// а тут все, что вы хотите с ней сделать, но вам уже не нужно указывать с чем вы работаете, т.е. для изменения той же высоты вы будете писать просто :
Height:=300;
end;
end;

[gadilla_cs]

Спасибо, сейчас буду пробовать