Desactivar estilo visual

[MAXIUM]

Muchas Gracias. Pero no me funciona.

[Ñuño Martínez]

Por favor, define "Pero no me funciona."

[MAXIUM]

Código Delphi [-]
function SetWindowTheme(hWnd: Cardinal; Optional, pszSubAppName: PChar): Cardinal; stdcall; external 'uxtheme';

procedure TForm1.FormCreate(Sender: TObject);
begin
     SetWindowTheme(Panel1.Handle, nil, ''); //<- NO FUNCIONA
     SetWindowTheme(Button1.Handle, nil, '');
     SetWindowTheme(GroupBox1.Handle, nil, ''); //<- NO FUNCIONA
     SetWindowTheme(BitBtn1.Handle, nil, ''); //<- NO FUNCIONA
end;

[[kurono]]

si estas usando componentes tercero en tu aplicacion como VCL Skip ,suick pack etc debo decirte que no funcionara los codigo que te pase ya, que ese codigo solo quitan el estilo visual del xp del propio sistema no de componente tercero

[MAXIUM]

Estoy usando controles nativos, es cosa que veas el código que he puesto.

[[kurono]]

agrega en la linea de la funcion en el archivo que hace referencia añadele la extension .dll de esta manera

Código Delphi [-]
function SetWindowTheme(hWnd: Cardinal; Optional, pszSubAppName: PChar): Cardinal; stdcall; external 'uxtheme.dll';

luego en la carpeta de tu proyecto agrega el archivo uxtheme.dll que se encuenta en la carpeta C:\windows\system32 y con eso debe funcionar

[MAXIUM]

Lo curioso, es que solo funciona para los Button.