haitao:
好像是通过这样来释放的:居然使用了Notification
[阅读: 381] 2007-10-22 09:50:02
procedure TComponent.Remove(AComponent: TComponent);
begin
AComponent.FOwner := nil;
FComponents.Remove(AComponent); //这个并没有释放那个被own的控件。。。
if FComponents.Count = 0 then
begin
FComponents.Free;
FComponents := nil;
end;
end;
好像是通过这样来释放的:居然使用了Notification!!!
ValidateRename(AComponent, AComponent.FName, '');
Notification(AComponent, opRemove);