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

Как в disign-time е отловить факт изменения размеров формы?   Найти похожие ветки 

← →
Эдуард   (2004-03-22 13:08) [0]

Господа мастера, сабж собственно. Суть проблемы в следующем:
нужно отловить дизайнтаймовое изменение размеров формы, с тем чтобы их, например подогнать к определённой линейке размеров.
Подчёркиваю, что это нужно именно в disign-time, что бы разработчик не мог задать в процессе компоновки размеры, не входящие в линейку допустимых.  
PS: Constraints не предлагать, размеры могут составлять дискретные знчения, а не интервал, напр. 200, 250, 300-320, 400.

---

← →
BillyJeans ©   (2004-03-22 13:19) [1]

пиши свой класс - наследник TForm, и обрабатывай изменения размера...

---

← →
Юрий Зотов ©   (2004-03-22 16:57) [2]

> Эдуард

Чтобы код работал, он должен быть откомпилирован. Значит, чтобы он работал в design-time, он должен быть откомпилирован в design-time пакет. Делаете свой наследник TForm, директиву $R из кода выбрасываете, в код добавляете все, что хотите (например, можно заместить SetBounds) и пишете процедуру Register:
RegisterCustomModule(TMyForm, TCustomModule);
Копилируете пакет, устанавливаете его в Delphi, свои рабочие формы наследуете от TMyForm. Все.

Проще и удобнее будет все это проделать, используя эксперт Сергея Орлика CFPack.

---

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

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



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