|
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
|
function FindChild(Name: string; Parent: TFmxObject): TFmxObject;
var I: Integer;
Child: TFmxObject;
begin Result := nil;
if (Parent <> nil) and (Parent.Children <> nil) then
begin
for I := Parent.Children.Count - 1 downto 0 do
begin
Child := TFmxObject(Parent.Children[I]);
if Child.Name = Name then
begin
Result := Child;
break;
end;
end;
end;
end;
procedure FreeAndNilFmxObject(var Obj: TFmxObject);
begin if Obj <> nil then
begin
Obj.Parent := nil;
Obj.SetRoot(nil);
FreeAndNil(Obj);
end;
end;
var AIndex : Integer = 0;
procedure TForm1.Button1Click(Sender: TObject);
var A: TButton;
B: TFmxObject;
begin ReportMemoryLeaksOnShutdown := True;
B := FindChild('A', Self);
if (B <> nil) and (B is TButton) then
begin
A := B as TButton;
B := nil;
// //后面 FormDestroy 的代码不一样，但效果一样。 FreeAndNilFmxObject(TFmxObject(A));
end;
// if (B <> nil) and (B is TButton) then// begin// A := B as TButton;// B.Parent := nil;// B.SetRoot(nil);// B := nil;// FreeAndNil(A);// end; inc(AIndex);
A := TButton.Create(nil);
A.Name := 'A';
A.Position.Y := AIndex * A.Height;
A.Text := '按钮' + AIndex.ToString;
A.Parent := Self;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var B: TFmxObject;
begin ReportMemoryLeaksOnShutdown := True;
B := FindChild('A', Self);
//这样写更简单些。
FreeAndNilFmxObject(B);
end;
|
http://www.delphi6.com/thread-68.htm