Такой вопрос

← →
лом (2006-02-21 14:00) [0]

У меня на форме лежит 32 TImage
И по клику на любом из них, Top его должен увеличится на 10.
Неохота создавать для каждого обработчик OnClick можно ли как-нить по другому это реализовать.
Заранее спасибо

← →
umbra © (2006-02-21 14:04) [1]

procedure TForm1.Image1Click(Sender: TObject);
begin
(Sender as TImage).Top := (Sender as TImage).Top + 10;
end;

А остальным TImage назначаете этот же обработчик.

← →
msguns © (2006-02-21 14:04) [2]

Событие OnClick, "назначенное" одному имаджу, назначить и остальнім.
В самом обработчике "работать" с Sender as TImage

← →
Stakan © (2006-02-21 14:05) [3]

А ты создай один обработчик, укажи его всем Image, а в обработчике напиши
TImage(Sender).Top := ...

← →
msguns © (2006-02-21 14:06) [4]

>umbra © (21.02.06 14:04) [1]

procedure TForm1.Image1Click(Sender: TObject);
begin
with Sender as TImage do Top := Top + 10;
end;

;)))

задавай один обработчик на всех.
в нем что-то типа этого:
y := TImage(Sender).Top; y := y + 10; TImage(Sender).Top := y

С уважением.

← →
лом (2006-02-21 14:11) [6]

Спасибо

Такой вопрос Найти похожие ветки