Problema com VCL no Delphi
Bom dia pessoal,
Estou tentando aplicar o tema VCL através de um arquivo.
Segue código:
Mas quando jogo o executável no cliente ele fica dizendo que não encontrou o arquivo VCL. Como faço para não exibir essa mensagem?
Estou tentando aplicar o tema VCL através de um arquivo.
Segue código:
if TStyleManager.IsValidStyle(IniFile.ReadString('Tema','Projetos','')+'\Style\TemaPronto.vsf') then begin // valida caminho estilo
TStyleManager.LoadFromFile(IniFile.ReadString('Tema','Projetos','')+'\Style\TemaPronto.vsf'); // carrega o tema
TStyleManager.SetStyle('Tema Pronto'); // seta o tema
end;
TStyleManager.LoadFromFile(IniFile.ReadString('Tema','Projetos','')+'\Style\TemaPronto.vsf'); // carrega o tema
TStyleManager.SetStyle('Tema Pronto'); // seta o tema
end;
Mas quando jogo o executável no cliente ele fica dizendo que não encontrou o arquivo VCL. Como faço para não exibir essa mensagem?
João Barros
Curtidas 0