한 께서 말씀하시기를...

> DBGrid의 스크롤바를 없애고 싶습니다.

> 수직 스크롤바를 그럼 부탁드립니다.



TDBGrid 의 수직이동 막대(vertical scrollbar)를 감추려면

TDBGrid 를 상속받아 새로운 콤포넌트를 만드는 방법이 있습니다

Paint method를 override 하여 SetScrollRange() API 를 사용하여

최대,최소 이동값을 0 로 하면 됩니다

콤포넌트 소스는 아래와 같습니다



unit Newgrid;



interface



uses

WinTypes, WinProcs, Classes, DBGrids;



type

TNoVertScrollDBGrid = class(TDBGrid)

protected

procedure Paint; override;

end;



procedure Register;



implementation



procedure TNoVertScrollDBGrid.Paint;

begin

SetScrollRange(Self.Handle, SB_VERT, 0, 0, False);

inherited Paint;

end;



procedure Register;

begin

RegisterComponents('Data Controls', [TNoVertScrollDBGrid]);

end;



end.

감사드립니다.



꾸벅~



꾸벅~



꾸벅~



좋은 일들만 계속 벌어지기를 기원합니다.