Class TWPValueEdit
Hierarchy
System.TObject | System.Classes.TPersistent | System.Classes.TComponent | Vcl.Controls.TControl | Vcl.Controls.TWinControl | Vcl.StdCtrls.TCustomEdit | TWPValueEdit
Properties
Property AllowNegative : Boolean
Property AllowUndefined : Boolean
Property AutoSelect : Boolean
Property AutoSize : Boolean
Property AvailableUnits : TWPEditUnits
Property BorderStyle : TBorderStyle
Property Button : TUpDown
Property ChangeToUndefined : Boolean
Property Color : TColor
Property Ctl3D : Boolean
Property DragCursor : TCursor
Property DragMode : TDragMode
Property EditorEnabled : Boolean
Property Enabled : Boolean
Property Font : TFont
Property Increment : Integer
Property IntValue : Integer
Property MaxLength : Integer
Property ParentColor : Boolean
Property ParentCtl3D : Boolean
Property ParentFont : Boolean
Property ParentShowHint : Boolean
Property PopupMenu : TPopupMenu
Property Precision : Integer
Property ReadOnly : Boolean
Property ShowHint : Boolean
Property TabOrder : TTabOrder
Property Undefined : Boolean
Property UndefinedValue : Integer
Property UnitType : TWPEditUnit
Property Value : Integer
Property Visible : Boolean
Methods
Procedure ChangeValue(NewValue:Integer)
Procedure CreateParams(Params:TCreateParams)
Function DoMouseWheelDown(Shift:TShiftState; MousePos:TPoint) : Boolean
Function DoMouseWheelUp(Shift:TShiftState; MousePos:TPoint) : Boolean
Procedure DownClick(Sender:TObject)
Procedure FormatValue(NewValue:Integer)
Function GetUndefined : Boolean
Function GetValue_VHC(old:Integer) : Integer
Function IsValidChar(Key:Char) : Boolean
Procedure MouseDown(Button:TMouseButton; Shift:TShiftState; X:Integer; Y:Integer)
Procedure SetUndefined(x:Boolean)
Procedure SetUndefinedVal(Sender:TObject)
Procedure SetUnit(x:TWPEditUnit)
Procedure SetValue(NewValue:Integer)
Procedure SetValueAsInchOrCM(NewValue:Extended; AsInch:Boolean)
Procedure UnitClick(Sender:TObject)
Procedure UpClick(Sender:TObject)
Function ValueAsCM : Extended
Function ValueAsInch : Extended
Function ValueAsInchOrCM(AsInch:Boolean) : Extended
Events
OnChange : TNotifyEvent= procedure (Sender : TObject) of Object
OnClick : TNotifyEvent= procedure (Sender : TObject) of Object
OnDblClick : TNotifyEvent= procedure (Sender : TObject) of Object
OnDownClick : TNotifyEvent= procedure (Sender : TObject) of Object
OnDragDrop : TDragDropEvent= TDragDropEvent
OnDragOver : TDragOverEvent= TDragOverEvent
OnEndDrag : TEndDragEvent= TEndDragEvent
OnEnter : TNotifyEvent= procedure (Sender : TObject) of Object
OnExit : TNotifyEvent= procedure (Sender : TObject) of Object
OnFormatValue : TWPValueEditFormatValue= TWPValueEditFormatValue
OnKeyDown : TKeyEvent= TKeyEvent
OnKeyPress : TKeyPressEvent= TKeyPressEvent
OnKeyUp : TKeyEvent= TKeyEvent
OnMouseDown : TMouseEvent= TMouseEvent
OnMouseMove : TMouseMoveEvent= TMouseMoveEvent
OnMouseUp : TMouseEvent= TMouseEvent
OnUnitChange : TNotifyEvent= procedure (Sender : TObject) of Object
This event is triggered after the unit was changed. You can use this event to adjust the Increment value