А стандартный СпинЭдит с флоатами не работает что ли ? Или

← →
Кто---то © (2004-10-22 05:07) [0]

комбинация Эдита с АпДауном ? Или какой нибудь стандартный аналог для флоатов есть ?

← →
ЮЮ © (2004-10-22 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:19) [2]

> ЮЮ © (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 08:04) [3]

1) опубликовать OnMouseWheel, заложенный ещё в TControl
2) самому обработать сообщение (метод в private секции):

procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;

> ЮЮ © (22.10.04 08:04) [3]
> 1) опубликовать OnMouseWheel, заложенный ещё в TControl
> 2) самому обработать сообщение (метод в private секции):
>
> procedure CMMouseWheel(var Message: TCMMouseWheel); message
> CM_MOUSEWHEEL;

И как же именно это сделать ? У вас есть такой код ?

А стандартный СпинЭдит с флоатами не работает что ли ? Или Найти похожие ветки