| Class TAncestorForm (unit Parent) |
| Constructors |
| Functions |
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
Procedure Loaded;| 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;