Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Создание компонентов в runtime и перемещение их по форме [D5, Win95/98]


ДмитрийК. ©   (2002-12-11 10:38:00) 

Уважаемые мастера, кто сможет подсказать:
1.Есть компонент, наследник TImage как создать его в runtime, кол-во может изменяться от 5 до 30.
2.Каким образом можно прописать в своём компоненте реакцию на стандартные события OnMouseDown, OnMouseUp чтобы не прописывать их в каждом объекте.
3. Поднимаю старый вопос, перемещение компонентов по форме в runtime, какой способ посоветуете выбрать?


jen_bond   (2002-12-11 11:17:00) [1]

если не сложно кинь мне! Заранее спасиобо!!! killer@mail.nnov.ru


Skier   (2002-12-11 10:47:00) [2]

>ДмитрийК.
1. Создавай в цикле,...и можно заносить их в список (если нужно...)
2.
а)Можно в классе-наследнике перекрыть
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); dynamic; и
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); dynamic;
и делать свои специфичные действия
б) можно после создания экземпляра класса назначить
(и так для каждого...) одни и те обработчики
AImage1.OnMouseDown := TheSameMouseDown;
AImage1.OnMouseUp := TheSameMouseUp;
//................
AImage30.OnMouseDown := TheSameMouseDown;
AImage30.OnMouseUp := TheSameMouseUp;
3. У меня есть небольшой компонентик, который это умеет делать,
если нужно кину по почте...


Наверх

Титульная страница Поиск, карта сайта Написать письмо