Cómo saber si una StringGrid muestra las ScrollBars?
 

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.

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. :)