【Delphi 】StyleControls组件 学习笔记

var
  t1: TscNCTabItem;
begin
  t1 := scstyldfrm1.Tabs.Add;
  t1.Caption := 'Sheet' + IntToStr(scstyldfrm1.Tabs.Count);
  t1.Width := 60;
end;

uses unit2;
procedure TForm1.btn4Click(Sender: TObject);
begin
  form2 := TForm2.Create(self);
  scstyldfrm1.ShowClientInActiveEffect;　　　　//这里是重点.要在窗体显示前,设置特效
  Form2.ShowModal;
  scstyldfrm1.HideClientInActiveEffect;　　　　//窗体显示后,隐藏特效
　Form2.free;
end;

uses Vcl.Themes;　　//皮肤单元
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := Low(TStyleManager.StyleNames) to High(TStyleManager.StyleNames) do　　　　//TStyleManager样式管理器,不用声明.TStyleManager.StyleNames 返回一个皮肤数组.
    scGPComboBox1.ListBox.Add(TStyleManager.StyleNames[i]);
end;

procedure TForm1.scGPComboBox1Change(Sender: TObject);
begin
  TStyleManager.TrySetStyle(scGPComboBox1.Items[scGPComboBox1.ItemIndex].Caption );　　　　//TrySetStyle:设置皮肤
end;

unit Unit6;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls, scControls, scGPControls;

type
  TFrame6 = class(TFrame)
    scGPPanel1: TscGPPanel;
    Button1: TButton;
  private
    { Private declarations }
  public
    constructor Create(AOwner: TComponent); override;    //上面链接有介绍

Frame的Create原理 　

  end;

implementation

{$R *.dfm}
uses
  Unit5;    //引用主窗体

constructor TFrame6.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);    //上面链接有介绍

Frame的Create原理 　

  Self.Align := alClient;     //如果没有这一句,frame嵌进去之后,会保持原有大小.
  Button1.Caption := 'Frame' + inttostr(Length(ArrayFrames) + 1);   //修改Btn属性
end;

end.

unit Unit5;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls, scControls, scGPPagers, Unit6, cxGraphics, cxControls,
  cxLookAndFeels, cxLookAndFeelPainters, cxStyles, cxEdit, cxInplaceContainer,
  cxVGrid, cxOI;

type
  TArrayFrames = array of TFrame;  //设置动态数组的数据类型

  TForm5 = class(TForm)
    scGPPageControl1: TscGPPageControl;
    sheet1: TscGPPageControlPage;
    Button1: TButton;
    Memo1: TMemo;
    Frame61: TFrame6;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure scGPPageControl1Close(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure DeleteArrItem(var arr: TArrayFrames; Index: Integer);
  private
    { Private declarations }
  public
  end;

var
  Form5: TForm5;
  ArrayFrames: TArrayFrames;  //全局数组

implementation

{$R *.dfm}


//创建新标签
procedure TForm5.Button1Click(Sender: TObject);
var
  NewTap: TscGPPageControlTab;
  NewFrame: TFrame6;
begin
  with scGPPageControl1 do
  begin
    NewTap := Tabs.Add;       //新增标签
    NewTap.Caption := 'sheet' + Tabs.Count.ToString; //设置标签名称

    NewFrame := TFrame6.Create(scGPPageControl1);
     //设置Frame名称,这里一定要写,因为它每次新增都默认是Frame的Name, 会报错
    NewFrame.Name := 'Frame' + IntToStr(NewFrame.Handle);
    NewFrame.Parent := NewTap.Page; //把frame嵌进标签里
    //把 NewFrame记录进数组里,当关闭标签时,从数组里取出,并free  .数组的Index值与标签的index值相同
    SetLength(ArrayFrames, Length(ArrayFrames) + 1);
    ArrayFrames[Length(ArrayFrames) + 1] := NewFrame;
    //监测数组
    Memo1.Lines.Add('ArrayFrames增加:' + Length(ArrayFrames).ToString);
  end;

end;

procedure TForm5.DeleteArrItem(var arr: TArrayFrames; Index: Integer);
var
  len: Integer;
  tempFrame: TFrame;
begin
  len := Length(arr);
  //不用考虑 Index =1 ,因为不能删除
  if Index = len then
  begin
    SetLength(arr, len - 1);
    Exit;
  end;
  //其它情况
  tempFrame := arr[Index - 1];
  tempFrame.Free;
  //把将要删除的元素移到最后,然后重新设置它的长度,以实现删除的目的
  //关于Move与sizeOf请看下面聊天记录
  Move(arr[Index + 1], arr[Index], (len - Index) * SizeOf(arr[0]));
  SetLength(arr, len - 1);

end;

procedure TForm5.FormCreate(Sender: TObject);
begin
  setLength(ArrayFrames, 1);   //自带一个主页且不能删除
  ArrayFrames[0] := Frame61;  //把主页加进数组
end;


//标签的关闭事件
procedure TForm5.scGPPageControl1Close(Sender: TObject; var CanClose: Boolean);
var
  i, j: integer;
begin
  CanClose := False;  //设置成False才能删除
  with scGPPageControl1 do
  begin
    i := GetPageIndex(ActivePage);
    //删除元素半释放free
    DeleteArrItem(ArrayFrames, i + 1);
    //监测数组
    Memo1.Lines.Add('ArrayFrames删除:' + Length(ArrayFrames).ToString);
    tabs.Delete(i);    //删除标签
    FindPriorTab;    //激活上一个标签
  end;
end;

end.