Class TMainForm (unit IntNumTest01)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure Button4Click(Sender: TObject);


procedure cbAutoAdjustClick(Sender: TObject);


procedure cbSilentErrorsClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure IntegerNumberChange(Sender: TObject);


procedure IntegerNumberChangeQuery(Sender: TObject; NewValue: Integer; var CanChange: Boolean);


procedure IntegerNumberOverflow(Sender: TObject);


procedure IntegerNumberUnderflow(Sender: TObject);


procedure RefreshControls;


Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


cbAutoAdjust : TCheckBox;


cbSilentErrors : TCheckBox;


edMax : TSpinEdit;


edMin : TSpinEdit;


edValue : TSpinEdit;


IntegerNumber : TIntegerNumber;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


ListBox : TListBox;



Constructors


Functions


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure Button4Click(Sender: TObject);


procedure cbAutoAdjustClick(Sender: TObject);


procedure cbSilentErrorsClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure IntegerNumberChange(Sender: TObject);


procedure IntegerNumberChangeQuery(Sender: TObject; NewValue: Integer; var CanChange: Boolean);


procedure IntegerNumberOverflow(Sender: TObject);


procedure IntegerNumberUnderflow(Sender: TObject);


procedure RefreshControls;


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


cbAutoAdjust : TCheckBox;


cbSilentErrors : TCheckBox;


edMax : TSpinEdit;


edMin : TSpinEdit;


edValue : TSpinEdit;


IntegerNumber : TIntegerNumber;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


ListBox : TListBox;