如何在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;