Desactivar estilo visual

[MAXIUM]

¿Como desactivar el estilo visual de solo algunos componentes? (XPMan)

[[kurono]]

para los componente individuales lo puedes hacer de la manera siguiente

Código Delphi [-]
function SetWindowTheme(hWnd: Cardinal; Optional, pszSubAppName: PChar): Cardinal; stdcall; external 'uxtheme';
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 SetWindowTheme(Button1.Handle, ' ', ' ');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 SetWindowTheme(Button1.Handle, nil, nil);
end;

y esto para el sistema windows en general

Código Delphi [-]
function EnableTheming(fEnable: LongBool): Cardinal; stdcall; external 'uxtheme';
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 EnableTheming(False);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 EnableTheming(True);
end;

[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