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.

推荐分享