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;