Embed

Embed 的方法参照如下例子：

procedure TLeanBaseForm.EmbedTo(AOwner: TWinControl);
begin
  Framework.EmbedContainer.PushEmbedForm(Self);
  Dock(AOwner, AOwner.BoundsRect);
  FIsEmbed := true;
  Align := alClient;
  Show;
  if (AOwner is TLeanBaseForm) and (Assigned(TLeanBaseForm(AOwner).OnEmbed)) then
  begin
    TLeanBaseForm(AOwner).OnEmbed(Self);
  end;
end;

 

posted @ 2017-02-07 16:16  谢方  阅读(235)  评论(0)  编辑  收藏  举报