Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

Как в 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.038 c
14-1082022130
stone
2004-04-15 13:42
2004.04.11
Стенография для программиста :))


1-1080211100
blaster
2004-03-25 13:38
2004.04.11
две линии


3-1081669851
ppcat
2004-04-11 11:50
2004.04.11
Проект, базы данных


3-1079282561
Doctor Deejay
2004-03-14 19:42
2004.04.11
AnsiQuotedStr


7-1075817286
avgur
2004-02-03 17:08
2004.04.11
COM порт (модем)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский