Создание компонентов в 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

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