Select several row with Shift key in dbgrid

[Ericktux]

Hi my friends  , how i can Select several row with Shift key in dbgrid ?

[mangakissa]

set property dgMultiSelect to true

[Ericktux]

Hi, I tried activating dgMultiSelect but nothing, only key "CTRL" works. 

[balazsszekely]

@Pascalito100
Is not working because dgRangeSelect is not implemented.

[Ericktux]

then as I can select multiple rows with few clicks 
because with "CTRL" I can only one to one.

[Ericktux]

for now this works for me 

Code: Pascal  [Select][+][-]

1. uses
2.   LCLIntf,
3.   Windows;
4.  
5. //.....
6.  
7. var
8.    firstpoint, thispoint: tpoint;
9.    thisfield : string;
10.  
11. //.....
12.  
13. procedure TForm1.DBGrid1CellClick(Column: TColumn);
14. begin
15.        if (dgmultiselect in dbgrid1.options) then
16.         if getkeystate(vk_shift) < short(0) then begin
17.            getcursorpos(thispoint);
18.            while not SQLQuery1.eof and not SQLQuery1.bof and
19.                  not (dbgrid1.datasource.dataset.fields[0].asstring =
20.                        thisfield) do begin
21.                  if thispoint.y > firstpoint.y then
22.                     SQLQuery1.prior
23.                  else
24.                     SQLQuery1.next;
25.                  dbgrid1.selectedrows.currentrowselected := true;
26.            end;
27.         end;
28.      getcursorpos(firstpoint);
29.      thisfield := dbgrid1.datasource.dataset.fields[0].asstring;
30. end;

but I would have another suggestion