| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
А стандартный СпинЭдит с флоатами не работает что ли ? Или [D7]
Кто---то © (2004-10-22 05:07:00)комбинация Эдита с АпДауном ? Или какой нибудь стандартный аналог для флоатов есть ?
Кто---то (2004-10-23 02:26:00) [1]
> ЮЮ © (22.10.04 08:04) [3]
> 1) опубликовать OnMouseWheel, заложенный ещё в TControl
> 2) самому обработать сообщение (метод в private секции):
>
> procedure CMMouseWheel(var Message: TCMMouseWheel); message
> CM_MOUSEWHEEL;
И как же именно это сделать ? У вас есть такой код ?
ЮЮ (2004-10-22 08:04:00) [2]1) опубликовать OnMouseWheel, заложенный ещё в TControl
2) самому обработать сообщение (метод в private секции):
procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;
Кто---то (2004-10-22 07:19:00) [3]
> ЮЮ © (22.10.04 07:01) [1]
> TSpinEdit находится на закладке Samples, что говорит не
> о "стандартности" компонента, а о возможностях Deplphi:
> когда возможностей компонента не хватает - пишут новый.
> Так поступилм создатели Rx Library, расширив стандартные
> компоненты постоянно возникающими свойствами.
> TValueType = (vtInteger, vtFloat, vtHex);
> TRxSpinEdit = class(TCustomEdit)
> ...
> property Increment: Extended
> property MaxValue: Extended
> property MinValue: Extended
> property ValueType: TValueType
> ...
> end;
Патрясающе !
А как заставить СпинЭдит увеличиваться/уменьшатся, прокручиванием колёсика мышки ?
Что-то непойму, как это прописать и обрабатывать в классе ?
ЮЮ (2004-10-22 07:01:00) [4]TSpinEdit находится на закладке Samples, что говорит не о "стандартности" компонента, а о возможностях Deplphi: когда возможностей компонента не хватает - пишут новый. Так поступилм создатели Rx Library, расширив стандартные компоненты постоянно возникающими свойствами.
TValueType = (vtInteger, vtFloat, vtHex);
TRxSpinEdit = class(TCustomEdit)
...
property Increment: Extended
property MaxValue: Extended
property MinValue: Extended
property ValueType: TValueType
...
end;
| |
