将窗体显示在 PageControl 上。

var
   AWinControl:TPageControl;
begin
  AWinControl  :
=  PageControl1;
  
if frmAbout = nil then Exit;  
  frmAbout.ManualDock(AWinControl, 
nil, alClient);
  frmAbout.Align :
= alClient;
  frmAbout.Show;
end;

 

posted on 2010-02-13 23:16  jxgxy  阅读(654)  评论(0编辑  收藏  举报

导航