Class Tfm_BaseCount (unit fm_BaseCount1)

Inherits from

TForm

Constructors



Functions

procedure bt_OKClick(Sender: TObject);

------------------------------------------------------

procedure FormClose(Sender: TObject; var Action: TCloseAction);

------------------------------------------------------

procedure FormCreate(Sender: TObject);

------------------------------------------------------

procedure FormShow(Sender: TObject);

------------------------------------------------------

procedure tx_BaseChange(Sender: TObject);

------------------------------------------------------

Properties

Events

Variables

bt_Cancel : TButton;


bt_OK : TButton;


Label1 : TLabel;


Label2 : TLabel;


tx_Base : TEdit;


tx_Count : TEdit;


LastBase : integer;

Public declarations

LastCount : integer;



Constructors


Functions


procedure bt_OKClick(Sender: TObject);

------------------------------------------------------


procedure FormClose(Sender: TObject; var Action: TCloseAction);

------------------------------------------------------


procedure FormCreate(Sender: TObject);

------------------------------------------------------


procedure FormShow(Sender: TObject);

------------------------------------------------------


procedure tx_BaseChange(Sender: TObject);

------------------------------------------------------


Properties


Events


Variables


bt_Cancel : TButton;


bt_OK : TButton;


Label1 : TLabel;


Label2 : TLabel;


tx_Base : TEdit;


tx_Count : TEdit;


LastBase : integer;

Public declarations


LastCount : integer;