Você certamente já buscou diversas maneiras de deixar sua aplicação com um visual diferente. Existem vários componentes que prometem trazer este resultado para você, mas de todos que pude testar o mais impressionante e o que uso em minhas aplicações é o VclSkins.

Pode ser usado os skins em um determinado form ou em toda aplicação. Neste artigo vou mostrar como usar em toda aplicação.

Colocando Skins com o VCLSkin

Requisitos

VCLSkin

Utilização

Após instalar o componente no delphi, copie a pasta skins para o lugar onde salvou o projeto.

Crie uma nova aplicação, no form adicione um Listbox, button e o componente SkinData.

1. No Onclick do button adicione a seguinte linha de comando:

1. No Onclick do button adicione a seguinte linha de comando:
//Isto irá carregar as skins dentro do listbox

var

  Procurar : TSearchRec;

  Arquivos: Integer;

begin
  CaminhoDasSkins := ExtractFilePath(Application.ExeName) + 'skins\*.skn';

  Arquivos := 0;

  Arquivos := Arquivos + faDirectory;

  Arquivos := Arquivos + faArchive;

  Arquivos := Arquivos + faAnyFile;

  if FindFirst(CaminhoDasSkins, Arquivos, Procurar) = 0 then

  begin

    repeat

    if (Procurar.Attr and Arquivos) = Procurar.Attr then

      ListBox1.Items.Add(Procurar.Name);

    until FindNext(Procurar) <> 0;

    FindClose(Procurar);

  end;

Crie as variáveis: CaminhoDasSkins , ss : string;

No evento Onclick do ListBox adicione a seguinte linha de comando:


var

 i: integer;

begin

  i := ListBox1.ItemIndex;

  ss := Copy(CaminhoDasSkins,1,Pos('*.skn',CaminhoDasSkins)-2)+'\'+ListBox1.items.strings[i];

  SkinData1.SkinFile := ss;

  if not SkinData1.Active then

    SkinData1.Active := True;

Agora rode a aplicação e clique no button para carregar as skins. Depois clique nas skins carregadas dentro do listbox e veja como muda todo o visual da aplicação. Adicione ao exemplo menus, caixas de diálogos, buttons, grids e veja como todos os componentes alteraram seu visual.

Pode ser criado um arquivo .ini para guardar a última seleção da skin para quando voltar a rodar a aplicação trazer carregada a última skin escolhida, mas isto fica para um novo artigo.

Espero ter ajudado, qualquer outra dúvida, entre em contato comigo.