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 官方styleBook大全使用

相关推荐

评论
