Delphi中TRzPageControl实现多窗口的融合窗口

 典型的融合窗口，比如Maxthon浏览器，浏览多个网页非常方便；微软眼见融合窗口众望所归，在IE7版本也引入了融合窗口技术，但微软的IE既耗内存又容易崩溃。题外话不多说了。在delphi实现其实也很简单：

 

procedure ShowDockForm(FormClass: TFormClass; dockCtrl: TWinControl; IsMaxed: Boolean); procedure ShowCaption(ParentCtrl:TWinControl;ACaption:string); begin if ParentCtrl is TRzTabSheet then TRzTabSheet(ParentCtrl).Caption := ACaption; end; var i: Integer; TabCtrl:TRzTabSheet; Form:TForm; begin Screen.Cursor := crHourGlass; try for i := 0 to Screen.CustomFormCount - 1 do if Screen.CustomForms[i] is FormClass then begin if (not (Screen.CustomForms[i]).Visible) then (Screen.CustomForms[i]).Visible := True; (Screen.CustomForms[i]).BringToFront; (Screen.CustomForms[i]).SetFocus; TabCtrl := TRzTabSheet(Screen.CustomForms[i].Parent); ShowCaption(TabCtrl,Screen.CustomForms[i].Caption); TRzPageControl(dockCtrl).ActivePageIndex := TabCtrl.PageIndex; exit; end; TabCtrl := TRzTabSheet.Create(dockCtrl); //dockCtrl TabCtrl.PageControl := TRzPageControl(dockCtrl); TRzPageControl(dockCtrl).ActivePageIndex := TabCtrl.PageIndex; Form := FormClass.Create(TabCtrl); with Form do try ManualDock(TabCtrl); ShowCaption(TabCtrl,Caption); Show; Form.WindowState := wsMaximized; Form.Align := alClient; except Free; end; finally Screen.Cursor := crDefault; end; end;

 

以上代码是在 Raize 5.X中的TRzPageControl 实现多窗口的融合窗口。