|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.05.2008, 23:52 | #1 |
Регистрация: 10.05.2008
Сообщений: 5
|
создать свойство компонента
Уважаемые Взрослые Программисты, подскажите как создать свойство у компонента TButton, позволяющее делать надпись заглавными буквами на этом компоненте, без участия клавиши Shift.
|
11.05.2008, 08:32 | #2 |
Android Developer
Старожил Подтвердите свой е-майл
Регистрация: 19.02.2007
Сообщений: 3,708
|
Делаем наследник от класса TButton, потом ловим сообщение CM_TEXTCHANGED ( вроде так в модуле Controls ) в нем делаем UpperCase и inherited; Все
|
11.05.2008, 23:23 | #3 |
Регистрация: 10.05.2008
Сообщений: 5
|
Многоуважаемый ВОВАН13, Вы не могли бы уточнить: как поймать сообщение CM_TEXTCHANGED. Чего-то у меня не получается. Проверьте, правильно ли сделал:
var Ch:PChar; begin .... SetTextBuf(Ch); Caption:=UpperCase(Ch); end; Button1.Caption сразу весь изменяется, а хотелось бы по мере ввода символов. Жду ответа как соловей лета. Это была шутка. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как динамически создать процедуры для подменю компонента TMainMenu | Dimitriys | Общие вопросы Delphi | 9 | 13.01.2011 18:02 |
Свойство DocumentSource компонента XML | posdnyaa | Компоненты Delphi | 0 | 21.02.2008 16:19 |
Свойство Params компонента TQuery | Washington | БД в Delphi | 3 | 07.02.2007 12:04 |
Свойство Decimal у SpinEdit | Ko$tello | Компоненты Delphi | 3 | 18.11.2006 17:53 |