delphi中如何用另加的ScrollBar取代DBGrid中的水平ScrollBar？

Question

出于界面的需要，需用ScrollBar取代DBGrid中的水平ScrollBar,不知如何实现 ？
隐藏DBGRID自带的scrollbar，而用另加的SCROLLBAR操纵DBGRID自身的scrollbar

Answer 1

把事件写在scrollbar的onchange事件里
参照下面代码
procedure Tptopform.ScrollBar1Change(Sender: TObject);
 var s:string;
begin
if MM=true then
begin
    if (qry1.RecordCount<>0) and (qry2.RecordCount<>0) then
   begin
s:=dbgrdh1.fields[3].DisplayText; ptopform.ds2.DataSet.Locate('光缆中的位置' ,s,[]);   dbgrdh2.SelectedIndex:=dbgrdh1.SelectedIndex;   end;
end;end;