Class TFormDemo (unit Unit1)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure CheckBoxStepClick(Sender: TObject);


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


procedure FormShow(Sender: TObject);


procedure StateBoolean1EnterState(Sender: TStateBoolean; var Result: Boolean);


procedure StateMachine1ChangeState(Sender: TStateMachine; FromState, ToState: TStateControl);


procedure StateMachine1Exception(Sender: TStateMachine; Node: TStateControl; Error: Exception);


procedure StateNode1EnterState(Sender: TObject);


procedure StateNode2EnterState(Sender: TObject);


procedure StateNode3EnterState(Sender: TObject);


procedure StateNodeResetEnterState(Sender: TObject);


procedure StateStart1EnterState(Sender: TObject);


procedure StateTransitionLoopTransition(Sender: TObject);


Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


CheckBoxBomb : TCheckBox;


CheckBoxReset : TCheckBox;


CheckBoxStep : TCheckBox;


StateBoolean1 : TStateBoolean;


StateLink1 : TStateLink;


StateLink2 : TStateLink;


StateMachine1 : TStateMachine;


StateNode1 : TStateNode;


StateNode2 : TStateNode;


StateNode3 : TStateNode;


StateNodeReset : TStateNode;


StateStart1 : TStateStart;


StateTransition1 : TStateTransition;


StateTransitionLoop : TStateTransition;



Constructors


Functions


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure CheckBoxStepClick(Sender: TObject);


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


procedure FormShow(Sender: TObject);


procedure StateBoolean1EnterState(Sender: TStateBoolean; var Result: Boolean);


procedure StateMachine1ChangeState(Sender: TStateMachine; FromState, ToState: TStateControl);


procedure StateMachine1Exception(Sender: TStateMachine; Node: TStateControl; Error: Exception);


procedure StateNode1EnterState(Sender: TObject);


procedure StateNode2EnterState(Sender: TObject);


procedure StateNode3EnterState(Sender: TObject);


procedure StateNodeResetEnterState(Sender: TObject);


procedure StateStart1EnterState(Sender: TObject);


procedure StateTransitionLoopTransition(Sender: TObject);


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


CheckBoxBomb : TCheckBox;


CheckBoxReset : TCheckBox;


CheckBoxStep : TCheckBox;


StateBoolean1 : TStateBoolean;


StateLink1 : TStateLink;


StateLink2 : TStateLink;


StateMachine1 : TStateMachine;


StateNode1 : TStateNode;


StateNode2 : TStateNode;


StateNode3 : TStateNode;


StateNodeReset : TStateNode;


StateStart1 : TStateStart;


StateTransition1 : TStateTransition;


StateTransitionLoop : TStateTransition;