Class TsPopupCalculator (unit sCalc)

Inherits from

TRxCalculatorForm

Constructors


constructor Create(AOwner: TComponent);

TsPopupCalculator


Functions

procedure PopUp(const aValue: Double);

If too far down, pop the calendar above the control

procedure CalculatePosition;


procedure CreateParams(var Params: TCreateParams);


procedure CancelButtonClick(Sender: TObject);

to raise exception on error

procedure FormDeactivate(Sender: TObject);


procedure OkButtonClick(Sender: TObject);


Properties

property ParentControl : TControl


property Value : Double


Events

event OnAccept : TNotifyEvent


event OnCancel : TNotifyEvent


Variables

FOnAccept : TNotifyEvent;


FOnCancel : TNotifyEvent;


FParentControl : TControl;



Constructors


constructor Create(AOwner: TComponent);

TsPopupCalculator


Functions


procedure PopUp(const aValue: Double);

If too far down, pop the calendar above the control


procedure CalculatePosition;


procedure CreateParams(var Params: TCreateParams);


procedure CancelButtonClick(Sender: TObject);

to raise exception on error


procedure FormDeactivate(Sender: TObject);


procedure OkButtonClick(Sender: TObject);


Properties


property ParentControl : TControl


property Value : Double


Events


event OnAccept : TNotifyEvent


event OnCancel : TNotifyEvent


Variables


FOnAccept : TNotifyEvent;


FOnCancel : TNotifyEvent;


FParentControl : TControl;