1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
unit AppForm;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms;
Type
TInitFormAt = (ifaShow,ifaCreate,ifaActivate);
{ TAppForm }
TAppForm = Class(TForm)
private
FAfterInit: TNotifyEvent;
FBeforeInit: TNotifyEvent;
FInitAt: TInitFormAt;
Procedure InitForm;
Protected
Procedure DoInitForm; virtual;
Public
Constructor Create(AOwner : TComponent); override;
Procedure DoShow; override;
Procedure Activate; override;
Published
// New properties
Property InitAt : TInitFormAt Read FInitAt Write FinitAt default ifaShow;
Property BeforeInitForm : TNotifyEvent Read FBeforeInit Write FBeforeInit;
Property AfterInitForm : TNotifyEvent Read FAfterInit Write FAfterInit;
// TCustomForm properties that we allow to edit in the IDE.
// In order to edit properties in the IDE, the class must be registered
// via a design time package.
// See http://wiki.lazarus.freepascal.org/Extending_the_IDE#Forms
property Caption;
property ActiveControl;
property BorderStyle;
property Color;
property FormStyle;
property OnClose;
property OnCloseQuery;
property OnCreate;
property OnDeactivate;
property OnDestroy;
property OnHide;
property OnShow;
property ParentFont;
property PixelsPerInch;
property PopupMenu;
end;
implementation
{ TAppForm }
procedure TAppForm.InitForm;
begin
If Assigned(BeforeInitForm) then
BeforeInitForm(Self);
DoInitForm;
If Assigned(AfterInitForm) then
AfterInitForm(Self);
end;
procedure TAppForm.DoInitForm;
begin
// Do nothing yet.
end;
constructor TAppForm.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
if (InitAt=ifaCreate) then
InitForm;
end;
procedure TAppForm.DoShow;
begin
If InitAt=ifaShow then
InitForm;
inherited DoShow;
end;
procedure TAppForm.Activate;
begin
if (InitAt=ifaActivate) then
InitForm;
inherited Activate;
end;
end.
|
