摘要：
parent即 养父Parent指拥有组件的父类，即父组件必须是Windowedcontrol组件。由于组件是包含组件的父类，因此当父类移动时，附加到它的组件也会移动。此关系在ObjectTreeVuew中表示。1单元1；23接口45使用6 Windows、消息、系统、变体、类、图形、，
是指拥有该组件的父类，即parent组件必定是一个窗口控制组件（Ｗindowed control） 由于组件就是容纳该组件的父类，因此当父类移动时，附着其内的组件也会移动．
Object TreeVIew 里表示的就是这种关系．
1
unit Unit1;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls;
8
9type
10 TForm1 = class(TForm)
11 GroupBox1: TGroupBox;
12 Button1: TButton;
13 Button2: TButton;
14 Button3: TButton;
15 Button4: TButton;
16 Button5: TButton;
17 procedure Button5Click(Sender: TObject);
18 procedure Button3Click(Sender: TObject);
19 procedure Button4Click(Sender: TObject);
20 procedure FormCreate(Sender: TObject);
21 private
22 { Private declarations }
23 public
24 { Public declarations }
25 end;
26
27var
28 Form1: TForm1;
29
30implementation
31
32uses Unit2;
33
34VAR
35 PB: boolean;
36{$R *.dfm}
37
38procedure TForm1.Button5Click(Sender: TObject);
39begin
40Form2.show
41end;
42
43procedure TForm1.Button3Click(Sender: TObject);
44begin
45GroupBox1.Top := GroupBox1.Top - 10;
46end;
47
48procedure TForm1.Button4Click(Sender: TObject);
49begin
50 if PB then
51 BEGIN
52 Button2.Parent := Form2;
53 PB := false;
54 END
55 else
56 BEGIN
57 Button2.Parent := Form1.GroupBox1;
58 PB := true;
59 END;
60end;
61
62procedure TForm1.FormCreate(Sender: TObject);
63begin
64Pb := false;
65end;
66
67end.
68
69
unit Unit1;2
3
interface4
5
uses6
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,7
Dialogs, StdCtrls;8
9
type10
TForm1 = class(TForm)11
GroupBox1: TGroupBox;12
Button1: TButton;13
Button2: TButton;14
Button3: TButton;15
Button4: TButton;16
Button5: TButton;17
procedure Button5Click(Sender: TObject);18
procedure Button3Click(Sender: TObject);19
procedure Button4Click(Sender: TObject);20
procedure FormCreate(Sender: TObject);21
private22
{ Private declarations }23
public24
{ Public declarations }25
end;26
27
var28
Form1: TForm1;29
30
implementation31
32
uses Unit2;33
34
VAR35
PB: boolean;36
{$R *.dfm}37
38
procedure TForm1.Button5Click(Sender: TObject);39
begin40
Form2.show41
end;42
43
procedure TForm1.Button3Click(Sender: TObject);44
begin45
GroupBox1.Top := GroupBox1.Top - 10;46
end;47
48
procedure TForm1.Button4Click(Sender: TObject);49
begin50
if PB then51
BEGIN52
Button2.Parent := Form2;53
PB := false;54
END55
else56
BEGIN57
Button2.Parent := Form1.GroupBox1;58
PB := true;59
END;60
end;61
62
procedure TForm1.FormCreate(Sender: TObject);63
begin64
Pb := false;65
end;66
67
end.68
69
Owner 生父
何谓Owner？就组件而言 ， Owner是指作为其他组件的Owner的父组件，在负责自身 析构时，一起析构它所拥有的其下所Own的组件，也就是于此时释放它自己与它所拥有 组件所占的内存．
1unit Unit1;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls;
8
9type
10 TForm1 = class(TForm)
11 Edit1: TEdit;
12 Button1: TButton;
13 Button2: TButton;
14 procedure Button2Click(Sender: TObject);
15 private
16 { Private declarations }
17 public
18 { Public declarations }
19 end;
20
21var
22 Form1: TForm1;
23
24implementation
25uses
26 unit2;
27{$R *.dfm}
28
29procedure TForm1.Button2Click(Sender: TObject);
30begin
31Form2.show
32end;
33
34end.
35
36
unit Unit1;2
3
interface4
5
uses6
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,7
Dialogs, StdCtrls;8
9
type10
TForm1 = class(TForm)11
Edit1: TEdit;12
Button1: TButton;13
Button2: TButton;14
procedure Button2Click(Sender: TObject);15
private16
{ Private declarations }17
public18
{ Public declarations }19
end;20
21
var22
Form1: TForm1;23
24
implementation25
uses26
unit2;27
{$R *.dfm}28
29
procedure TForm1.Button2Click(Sender: TObject);30
begin31
Form2.show32
end;33
34
end.35
36