Class TChildForm (unit Child)

Inherits from

TAncestorForm

Constructors



Functions

procedure Button1Click(Sender: TObject);

Override the event handler for Button1 in the ancestral form

procedure Button2Click(Sender: TObject);

Button2 only exists in the child

Procedure Loaded;

This is to demonstrate the repeated calls the the forms own .

Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Label2 : TLabel;


Panel1 : TPanel;



Constructors


Functions


procedure Button1Click(Sender: TObject);

Override the event handler for Button1 in the ancestral form


procedure Button2Click(Sender: TObject);

Button2 only exists in the child


Procedure Loaded;

This is to demonstrate the repeated calls the the forms own .loaded } { csLoading is always maintained in component state until after the } { last set of resources has loaded. } { I.E. After you call inherited .loaded, IF ClassLevel=0, then csLoading } { is no longer in ComponentState


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Label2 : TLabel;


Panel1 : TPanel;