如何在TStringGrid控件中按ctrl键选择多行

在CTOS中的预约审核-》转船预约审核中做了相关动作： 主要是在MouseDown事件中写如下代码

procedure TFormBookTrans_CHECK.sg_detail_bookingMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   if ssCtrl in Shift then
    if  sg_detail_booking.Cells[0,sg_detail_booking.Row] <> 'Y'  then
     sg_detail_booking.Cells[0,sg_detail_booking.Row] := 'Y'
    else
     sg_detail_booking.Cells[0,sg_detail_booking.Row] := '';
end;