X
xgwzw
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TComponent.Notification(AComponent: TComponent;
Operation: TOperation);
var
I: Integer;
begin
if (Operation = opRemove) and (AComponent <> nil) then
RemoveFreeNotification(AComponent);
if FComponents <> nil then
begin
I := FComponents.Count - 1;
while I >= 0 do
begin
TComponent(FComponents).Notification(AComponent, Operation);//这里是递归调用吗？
Dec(I);
if I >= FComponents.Count then
I := FComponents.Count - 1;
end;
end;
end;
Operation: TOperation);
var
I: Integer;
begin
if (Operation = opRemove) and (AComponent <> nil) then
RemoveFreeNotification(AComponent);
if FComponents <> nil then
begin
I := FComponents.Count - 1;
while I >= 0 do
begin
TComponent(FComponents).Notification(AComponent, Operation);//这里是递归调用吗？
Dec(I);
if I >= FComponents.Count then
I := FComponents.Count - 1;
end;
end;
end;
