Скачать: CL | DM;

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

← →
лом   (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;

;)))

---

← →
wal ©   (2006-02-21 14:06) [5]

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

С уважением.

---

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

Спасибо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c