各位前輩:
當使用者點選多筆時,(如先點選第1筆後,按shift鍵再用滑鼠點選第4筆)dbgrid的selectRows可以抓到4筆並在dbgrid上1-4筆是有顏色標示.

ps.因為在討論區找了老半天,好像都是如何運用已抓到的筆數,而沒有教如何去抓,所以請各位前輩不吝指導.謝謝!

不是很明白你的意思？
不規則選擇，以及如何去抓的意思是啥？
你前面談到先選擇第一筆之後按住SHIT再選擇第四筆，此種操作是選擇RANGE，屬於WINDOWNS下的基本操作，另外要不規則選擇也是WINDOWS下的基本操作，也就是按住CONTROL不要放掉，之後再選取你想要的項目；另外同樣的項目選擇兩次就會取消選取，不就這樣嗎？

sorry,不規則讓你誤會了.這有點像excel的動作.例:點選第1筆後,按shift再點第4筆,則會連選4筆,然後可以再按ctrl點選第6筆後按shift再點選第10筆則會再從第6筆連選到第10筆.此結果會有二個區塊...這是我目前要做的程式.

點選shift或ctrl的動作不是我要問的重點,重點是要如何讓dbgrid能夠抓到這連選的4筆(讓這4筆到"SelectRows"中)及這4筆的標示(顯示顏色)?.(或許按住shift再選擇第4筆是windows的操件,但dbgrid可以做的到嗎?)

雖然dbgird可以有連選的功能,但它只能用shift 向下鍵一筆筆選,若使用者想點選幾十筆的話...這會浪費很多時間.所以如何可以讓dbgrid跳著連選?
===================引 用 文 章===================
不是很明白你的意思？
不規則選擇，以及如何去抓的意思是啥？
你前面談到先選擇第一筆之後按住SHIT再選擇第四筆，此種操作是選擇RANGE，屬於WINDOWNS下的基本操作，另外要不規則選擇也是WINDOWS下的基本操作，也就是按住CONTROL不要放掉，之後再選取你想要的項目；另外同樣的項目選擇兩次就會取消選取，不就這樣嗎？

謝謝各位前輩,標示連續範圍的問題已經找到答案了.

程式碼如下:

procedure
var DbSet:TDataSet;
SelBookMark:TBookmarkList;
i, iTransFer:integer;
begin
DbSet := DataSource.DataSet;

SelBookMark := SelectedRows;
SelBookMark.Clear;

try
DbSet.DisableControls;
for i := iSelectStartRow to iSelectEndRow do begin
DbSet.MoveBy(i-DbSet.RecNo);//
SelBookMark.CurrentRowSelected := True;
end;
finally
DbSet.EnableControls;
end;
end;

那為何不全選，後再剔除不要的？

你為使用者想個真多

不過練練程式功力也很好