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

Создание компонентов в runtime и перемещение их по форме   Найти похожие ветки 

← →
ДмитрийК.   (2002-12-11 10:38) [0]

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

---

← →
Skier ©   (2002-12-11 10:47) [1]

>ДмитрийК.
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. У меня есть небольшой компонентик, который это умеет делать,
если нужно кину по почте...

---

← →
jen_bond   (2002-12-11 11:17) [2]

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

---

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

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



Память: 0.45 MB
Время: 0.014 c