delphi - 如何指定从 Delphi TStream 读取的组件的所有者？

Question

我正在从流中读取组件，并且希望能够指定 Owner 属性。

  var TComponent : comp;

  stream.Seek(0, soFromBeginning);
  comp := stream.ReadComponent(nil);

谁拥有 comp，我该如何更改它？我希望 readComponent 的参数是所有者，但它似乎做了完全不同的事情!

Answer 1

@Roddy，您可以使用InsertComponent设置组件所有者的过程。

检查此示例

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream : TFileStream;
  Comp   : TComponent;
begin
  Stream := TFileStream.Create('Myfiile', fmOpenRead);
  try
    Comp := Stream.ReadComponent(nil);
    if Comp <> nil then
        InsertComponent(Comp);   //this make the form the owner of the component
  finally
    Stream.Free;
  end;
end;