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

最新推荐文章于 2024-08-02 17:35:14 发布

转载最新推荐文章于 2024-08-02 17:35:14 发布 · 1.6k 阅读

文章标签：

#delphi #integer #微软 #string #浏览器 #ie

delphi 控件使用专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种在Delphi中使用Raize5.X的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;