模式窗体的问题


procedure Tfm_fsDetail.DBGrid1DblClick(Sender: TObject); 
begin 
  //选型号 
  if DBGrid1.SelectedField = QrPoitemcode_ID then 
  begin 
      if QrPoitemcode_ID.value <> '' then 
        fs_Srchcoding.custID := QrPoitemcode_id.value; 
        fs_Srchcoding.ShowModal; 
      if  fs_Srchcoding.ShowModal = mrok then 
      begin 
        if QrPoitem.State <> dsInsert then 
            QrPoitem.Edit; 
          if QrPoitemcode_id.ReadOnly then Exit; 
          QrPoitemcode_id.value := fs_Srchcoding.custID; 
          QrPoitemname.value := fs_Srchcoding.Qrcodingname.Value; 
          QrPoitemspec.Value := fs_Srchcoding.Qrcodingspec.Value; 
          QrPoitemcolor.Value :=  fs_Srchcoding.Qrcodingcolor.Value; 
          QrPoitemUT.Value :=  fs_Srchcoding.QrcodingUT_ID.Value; 
      end; 
  end; 
end； 我是写在父窗体的DBGrid1DblClick事件里 
当用户双击此列时弹出选型号的窗体，供用户在子窗体的DBgrid中选择，然后引用fs_Srchcoding.Qrcoding的值给QrPoitem 现在的问题是在我弹出选型号模式窗体时，当鼠标中轴滚动父窗体的DBgrid被滚动，而子窗体DBgrid不滚动， 
我希望的是子窗体DBgrid滚动，父窗体的DBgrid不滚动
如果写在ButtonClick里面当然是可以，但得不到我想要的目的 
procedure Tfm_fsDetail.Button6Click(Sender: TObject); 
begin 
fs_Srchcoding.ShowModal; 
end; 希望有高手可以解答！