Cómo saber si una StringGrid muestra las ScrollBars?

[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.