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 (http://msdn.microsoft.com/en-us/library/ms633584%28VS.85%29.aspx).

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