Class TAncestorForm (unit Parent)

Inherits from

TRootForm

Constructors



Functions

procedure BitBtn1Click(Sender: TObject);

Close the form (and application if we are the main form) } { This event handler is not overridden in the child form, but could be

procedure Button1Click(Sender: TObject);

Button1Click is overridden in the child form

Procedure Loaded;

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

Properties

Events

Variables

BitBtn1 : TBitBtn;


Button1 : TButton;


Label1 : TLabel;


Label2 : TLabel;


Memo1 : TMemo;


Panel1 : TPanel;



Constructors


Functions


procedure BitBtn1Click(Sender: TObject);

Close the form (and application if we are the main form) } { This event handler is not overridden in the child form, but could be


procedure Button1Click(Sender: TObject);

Button1Click is overridden in the child form


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


BitBtn1 : TBitBtn;


Button1 : TButton;


Label1 : TLabel;


Label2 : TLabel;


Memo1 : TMemo;


Panel1 : TPanel;