Class TfrmTrafficMain (unit TrafficM)
Inherits from
TForm
Constructors
Functions
procedure btnAddClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
procedure btnDisplayClick(Sender: TObject);
procedure btnEditClick(Sender: TObject);
procedure btnStartClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormShow(Sender: TObject);
procedure lbTrafficClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
Properties
Events
Variables
Bag1 : TBag32;
btnAdd : TButton;
btnDel : TButton;
btnDisplay : TButton;
btnEdit : TButton;
btnStart : TButton;
edTraffic : TEdit;
L1 : TShape;
L2 : TShape;
L3 : TShape;
L4 : TShape;
L5 : TShape;
L6 : TShape;
lbTraffic : TListBox;
Panel2 : TPanel;
Panel3 : TPanel;
pnlTraffic : TPanel;
SpeedButton1 : TSpeedButton;
Timer1 : TTimer;
Constructors
Functions
procedure btnAddClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
procedure btnDisplayClick(Sender: TObject);
procedure btnEditClick(Sender: TObject);
procedure btnStartClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormShow(Sender: TObject);
procedure lbTrafficClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
Properties
Events
Variables
Bag1 : TBag32;
btnAdd : TButton;
btnDel : TButton;
btnDisplay : TButton;
btnEdit : TButton;
btnStart : TButton;
edTraffic : TEdit;
L1 : TShape;
L2 : TShape;
L3 : TShape;
L4 : TShape;
L5 : TShape;
L6 : TShape;
lbTraffic : TListBox;
Panel2 : TPanel;
Panel3 : TPanel;
pnlTraffic : TPanel;
SpeedButton1 : TSpeedButton;
Timer1 : TTimer;