Código Delphi [-] SetScrollRange(StringGrid1.Handle, SB_HORZ, 0, 666, True);
SetScrollRange(StringGrid1.Handle, SB_HORZ, 0, 666, True);