trocar a skin da aplicação

[hend.maia 0]

To fazendo uma aplicação e quero ter a opção de trocar as skins dela,
fiz um form com alguns componentes e um list box, nesse list box quando troco de opção ele esta trocando a skin mas apenas "deste form", então quero clicar no botao "aplicar" e essa skin aplicar na aplicação toda.

Como faço isso ???

meu código ta assim:


procedure TF_Peles.ListBox1Click(Sender: TObject);
begin
if (ListBox1.ItemIndex = 0) then
SkinData1.LoadFromCollection(SkinStore1,0);
if not SkinData1.Active then
SkinData1.Active:=true;

if (ListBox1.ItemIndex = 1) then
SkinData1.LoadFromCollection(SkinStore1,1);
if not SkinData1.Active then
SkinData1.Active:=true;

if (ListBox1.ItemIndex = 2) then
SkinData1.LoadFromCollection(SkinStore1,2);
if not SkinData1.Active then
SkinData1.Active:=true;

if (ListBox1.ItemIndex = 3) then
SkinData1.LoadFromCollection(SkinStore1,3);
if not SkinData1.Active then
SkinData1.Active:=true;

if (ListBox1.ItemIndex = 4) then
SkinData1.LoadFromCollection(SkinStore1,4);
if not SkinData1.Active then
SkinData1.Active:=true;

end;

procedure TF_Peles.Button1Click(Sender: TObject);
begin

end;


oque tenho q colocar no onclick do botão "aplicar" para ele mudar a skin da aplicação inteira ????

[Roberto Fagundes 40]

Colocar esse skinData1 em um datamodule

e todos os formulários perguntar a este skindata1 qual skin usar

[hend.maia 0]

Então roberto, eu so novo no dephi...

 

Como faço para chamar esse skindata do data module ?

 

Eu vou la em DM.skindata1.skinstore:=

 

e oq ele vai receber ???

[danielrochadeveloper 0]

Ex:

 

Vamos criar 3 estilos (skin)

 

Crie um MainMenu e coloque Estilo1

Estilo 2

Estilo 3

 

Crie as procedures em type que fica logo baixo das uses

 

procedure miEstilo1Click(Sender: TObject);
procedure miEstilo2Click(Sender: TObject);
procedure miEstilo3Click(Sender: TObject);

 

Ao clicar em estilo 1 vai ser criado

 

procedure TfrmPrincipal.miEstilo1Click(Sender: TObject);
begin
TStyleManager.TrySetStyle('Windows');
miEstilo1.Checked := true;
miEstilo2.Checked := false;
miEstilo3.Checked := false;
end;

 

Ao clicar em estilo 2 vai ser criado

 

procedure TfrmPrincipal.miEstilo2Click(Sender: TObject);
begin
TStyleManager.TrySetStyle('Auric');
miEstilo1.Checked := false;
miEstilo2.Checked := true;
miEstilo3.Checked := false;
end;

 

e assim por diante.

 

Espero ter ajudado.