TComponent.Loaded

Initializes the component after the form file has been read into memory.

procedure Loaded; virtual;

Description
。。。

参考TDataSet.Active的代码(设置Active之前，肯定要确保其它属性已经被初始化过）
procedure TDataSet.SetActive(Value: Boolean);
begin
if (csReading in ComponentState) then
begin
FStreamedActive := Value;
end
else
...
end
end

procedure TDataSet.Loaded;
begin
inherited Loaded;
try
if FStreamedActive then Active := True;
except
if csDesigning in ComponentState then
InternalHandleException else
raise;
end;
end;