ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Identificar tema classico do windows [RESOLVIDO]

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
Rodrigo_Moraes
Novato
Novato


Registrado: Segunda-Feira, 24 de Junho de 2013
Mensagens: 69

MensagemEnviada: Sex Mar 21, 2014 11:18 am    Assunto: Identificar tema classico do windows [RESOLVIDO] Responder com Citação

Olá,

Estou com um problema preciso identificar se o usuario está utilizando o tema classico do Windows, é possivel?


Editado pela última vez por Rodrigo_Moraes em Sáb Mar 22, 2014 12:40 am, num total de 2 vezes
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Rodrigo_Moraes
Novato
Novato


Registrado: Segunda-Feira, 24 de Junho de 2013
Mensagens: 69

MensagemEnviada: Sex Mar 21, 2014 4:41 pm    Assunto: Re: Identificar tema classico do windows [RESOLVIDO] Responder com Citação

Rodrigo_Moraes escreveu:
Olá,

Estou com um problema preciso identificar se o usuario está utilizando o tema classico do Windows, é possivel?


solução:
uses vcl.themes;
function isTemaClassico:boolean;
var t : TThemeServices;
begin
T := TThemeServices.Create;
try
Result := not(T.ThemesEnabled);
Finally
T.free;
End;
End;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB