窗口显示于parent控件上

procedure TForm1.openForm(aFormClass: TFormClass; aOwner: TWinControl);
begin
  with AFormClass.Create(aOwner) do
  begin
    ManualDock(aOwner);
    WindowState := wsMaximized;
    Align := alClient;
    Show;
  end;
end;

posted @ 2011-04-09 23:29  delphi中间件  阅读(365)  评论(0编辑  收藏  举报