Главная страница
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.029 c
14-1078856622
VictorT
2004-03-09 21:23
2004.04.11
Не отправляется почта в The Bat


7-1080146989
$tranger
2004-03-24 19:49
2004.04.11
HOOKs


8-1071838650
Ragazor
2003-12-19 15:57
2004.04.11
Image1 + Image2= Image3


14-1082197153
Тимур
2004-04-17 14:19
2004.04.11
Counter-strike через модем


1-1080227206
Димон
2004-03-25 18:06
2004.04.11
Байты аргумента