Class TForm1 (unit uDemo1)

Inherits from

TForm

Green Eggs & Ham Demo Simple App to show how JLabel can be used as a menu system instead of using buttons

Constructors



Functions

procedure JLabel1Click(Sender: TObject);

Clear the Label so it doesn't hold the style} { Sorry, I can't figure out how to add this to { the component

procedure JLabel2Click(Sender: TObject);


procedure JLabel3Click(Sender: TObject);


Properties

Events

Variables

JLabel1 : TJLabel;


JLabel2 : TJLabel;


JLabel3 : TJLabel;


Label1 : TLabel;


Label2 : TLabel;


LabelEggCount : TLabel;


LabelEggsRemaining : TLabel;


LabelHamCount : TLabel;


LabelHamsRemaining : TLabel;


Panel1 : TPanel;



Constructors


Functions


procedure JLabel1Click(Sender: TObject);

Clear the Label so it doesn't hold the style} { Sorry, I can't figure out how to add this to { the component


procedure JLabel2Click(Sender: TObject);


procedure JLabel3Click(Sender: TObject);


Properties


Events


Variables


JLabel1 : TJLabel;


JLabel2 : TJLabel;


JLabel3 : TJLabel;


Label1 : TLabel;


Label2 : TLabel;


LabelEggCount : TLabel;


LabelEggsRemaining : TLabel;


LabelHamCount : TLabel;


LabelHamsRemaining : TLabel;


Panel1 : TPanel;