| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Такой вопрос
лом © (2006-02-21 14:00:00)У меня на форме лежит 32 TImage
И по клику на любом из них, Top его должен увеличится на 10.
Неохота создавать для каждого обработчик OnClick можно ли как-нить по другому это реализовать.
Заранее спасибо
лом (2006-02-21 14:11:00) [1]Спасибо
msguns (2006-02-21 14:06:00) [2]>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:00) [3]задавай один обработчик на всех.
в нем что-то типа этого:
y := TImage(Sender).Top;
y := y + 10;
TImage(Sender).Top := y
С уважением.
Stakan (2006-02-21 14:05:00) [4]А ты создай один обработчик, укажи его всем Image, а в обработчике напиши
TImage(Sender).Top := ...
umbra (2006-02-21 14:04:00) [5]procedure TForm1.Image1Click(Sender: TObject);
begin
(Sender as TImage).Top := (Sender as TImage).Top + 10;
end;
А остальным TImage назначаете этот же обработчик.
msguns (2006-02-21 14:04:00) [6]Событие OnClick, "назначенное" одному имаджу, назначить и остальнім.
В самом обработчике "работать" с Sender as TImage
| |
