Delphi 官方styleBook大全使用

本文整理自网络，侵删。

 
unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.Edit;

type
  TForm1 = class(TForm)
    JetStyleBook: TStyleBook;
    Button1: TButton;
    SterlingStyleBook: TStyleBook;
    EmeraldDarkStyleBook: TStyleBook;
    VaporStyleBook: TStyleBook;
    EmeraldCrystalStyleBook: TStyleBook;
    RadiantStyleBook: TStyleBook;
    StyleBook1: TStyleBook;
    CopperDark: TStyleBook;
    CopperFMX: TStyleBook;
    CoralCrystal: TStyleBook;
    CoralDark: TStyleBook;
    Diamond: TStyleBook;
    Calypso: TStyleBook;
    MaterialOxfordBlue: TStyleBook;
    PuertoRico: TStyleBook;
    Stellar: TStyleBook;
    WedgewoodLight: TStyleBook;
    Timer1: TTimer;
    Switch1: TSwitch;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    k:integer;
    j:integer;
    List: TList;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
var
   i:integer;
begin
  List := TList.Create;
  j:=self.ComponentCount;
  for i := 0 to j-1 do
  begin
    if self.Components[i] is TStyleBook then
       List.Add(self.Components[i]);
  end;
  i:=0;
  k:=0;
  j:=List.Count;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  List.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if k>=j then k:=0;
  self.StyleBook:=TStyleBook(List[k]);
  self.Caption:= TStyleBook(List[k]).Name;
  k:=k+1;
end;

end.
 

相关阅读 >>

Delphi paramstr 获取外部参数

Delphi从外部拖拽文件

Delphi 字符串与二进制数之间的互相转换

Delphi mediaplayer循环播放mp3所有音乐文件问题？

Delphi 动态数组的释放

Delphi 获取本地ip地址源码

Delphi可执行程序参数

Delphi 获取ie中选项卡标题

Delphi 泛型数组 strsplit 字符串分割

Delphi 遍历所有目录和子目录下的文件名（可按后缀名遍历）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 官方styleBook大全使用