Hola a todos, necesito cambiar el ancho de la barra de desplazamiento vertical, buscnado en el foro encontré este código de las API de Windows
Código Delphi
[-]
procedure TForm1.cambiascroll(ancho);
begin
Dato.cbSize:=SizeOf(Dato);
SystemParametersInfo(SPI_GetNonClientMetrics,0,@Dato,0);
Dato.iScrollWidth:=ancho;
SystemParametersInfo(SPI_SetNonClientMetrics,0,@Dato,SPIF_SENDWININICHANGE);
end;
todo me funciona bien en Windows 7, pero no sucede así en Windows 8
Alguna sugerencia de lo que hay que cambiar en el código
Mil gracias por su tiempo y atenciones