Cómo saber si una StringGrid muestra las ScrollBars?

[[mlara]]

Estoy tratando de redimensionar una de las columnas en una StringGrid. El único inconveniente es que dependiendo del número de filas la barra de desplazamiento vertical (ScrollBar Vertical) puede mostrarse o no. Cómo podría saber si esta barra de desplazamiento se encuentra visible en un momento dado?

Gracias.

[ecfisa]

Hola mlara.

Con la funcion GetWindowLong .

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with StringGrid1 do
  begin
    if (GetWindowLong(Handle, GWL_STYLE) and WS_VSCROLL) <> 0 then
       ShowMessage('ScrollBar vertical visible')
    else
       ShowMessage('ScrollBar vertical oculta');

    if (GetWindowLong(Handle, GWL_STYLE) and WS_HSCROLL) <> 0 then
       ShowMessage('ScrollBar horizontal visible')
    else
       ShowMessage('ScrollBar horizontal oculta');
  end;
end;

Saludos.