使用Raize实现Form嵌入PageControl中
来源:互联网 发布:中国为什么要封锁网络 编辑:程序博客网 时间:2024/06/07 16:48
自己写的demo, 备忘!
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, Unit7, RzTabs;
type
TForm6 = class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
procedure FormCreate(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
private
FPDI: boolean;
FPageControl: TRzPageControl;
{ Private declarations }
public
constructor Create(AOwner: TComponent); override;
function CreatePageControl: TRzPageControl;
procedure ControlClose(Sender: TObject; var AllowClose: Boolean);
property PDI: boolean read FPDI write FPDI;
property PageControl: TRzPageControl read FPageControl write FPageControl;
end;
var
Form6: TForm6;
implementation
{$R *.dfm}
procedure TForm6.ControlClose(Sender: TObject; var AllowClose: Boolean);
begin
AllowClose := True;
end;
constructor TForm6.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FPDI := True;
// FPDI := False;
end;
function TForm6.CreatePageControl: TRzPageControl;
begin
result := TRzPageControl.Create(self);
result.Parent := self;
result.Align := alClient;
result.ShowCloseButtonOnActiveTab := True;
result.OnClose := ControlClose;
result.ShowMenuButton := True;
// result.TabOrientation := toBottom;
result.UseGradients := False;
result.TabStyle := tsCutCorner;
result.Show;
end;
procedure TForm6.FormCreate(Sender: TObject);
begin
if FPDI then
begin
self.FormStyle := fsNormal;
FPageControl := CreatePageControl;
end;
end;
procedure TForm6.ToolButton1Click(Sender: TObject);
var
vSheet: TRzTabSheet;
vForm: TForm;
begin
vSheet := TRzTabSheet.Create(self);
vSheet.PageControl := self.PageControl;
PageControl.ActivePage := vSheet;
vForm := TForm7.Create(vSheet);
vForm.FormStyle := fsNormal;
vForm.BorderStyle := bsNone;
vForm.Parent := vSheet;
vForm.Align := alClient;
vForm.Show;
vSheet.Caption := vForm.Name;
end;
end.
- 使用Raize实现Form嵌入PageControl中
- Delphi使用pageControl实现镶嵌窗体
- Delphi 中 RadioGroup / pagecontrol 的使用
- 31-使用scrollView以及pageControl,NSTimer实现图片轮播
- 如何在Form中嵌入Excel
- WinForm中如何实现嵌入form窗体(panel与子窗体)
- pagecontrol中显示窗体
- form 嵌入form 解决方案
- PageControl
- PageControl
- PageControl
- scrollview+pagecontrol实现滑动界面
- IOS中pagecontrol颜色设置
- 图片浏览器+scrollView使用+pageControl
- C#如何在Form中嵌入并且操作Excel表格
- C#如何在Form中嵌入并且操作Excel表格
- C#如何在Form中嵌入并且操作Excel表格
- C#如何在Form中嵌入并且操作Excel表格 - -
- 恢复ATA186到初厂状态
- 无法在web服务器上启动调试。调试失败,因为没有启用集成windows身份验证,解决方案!
- fedora下的bridge和nat设置
- 框架设计( CLR via C# 2nd Edition ) 读后感
- seasar学习-dicon
- 使用Raize实现Form嵌入PageControl中
- 用好Word文档结构图
- struts2.0上传文件尺寸的解决
- 动态游标的写法
- JavaScript 图片切割效果
- 如何快速的配置Internet信息服务(IIS)
- Oracle中把integer转换成date类型
- CWnd::Invalidate()用法
- 淘宝与拍拍的世纪之战!(庄帅)