Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: 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 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
3-1078830044
Stas
2004-03-09 14:00
2004.04.11
Delphi8 и ADO


14-1082460600
Gero
2004-04-20 15:30
2004.04.11
"Начинающим"


4-1079420083
BillyJeans
2004-03-16 09:54
2004.04.11
Шрифт у Edit a...


1-1080204864
new
2004-03-25 11:54
2004.04.11
Индивидуальный номер


1-1082443759
an-na2002
2004-04-20 10:49
2004.04.11
Выполнение программы и TEdit