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;