（转载）通过dbgrideh 从数据集中选择合适的记录

通过dbgrideh 从数据集中选择合适的记录

//---------------------------------------------------------
// 通过dbgrideh 从数据集中选择合适的记录
//---------------------------------------------------------

比较常用，前几天好像论坛上有人提过类似问题，哪位朋友有更好的办法，请不吝赐教。

通过dbgrideh 从数据集中选择合适的记录，可以通过鼠标拖动选择，shift 多选。

1、dggrideh 的 options = [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit,dgMultiSelect]
主要是 dgRowSelect 和 dgMultiSelect；
2、optionsEH = [dghFixed3D,dghHighlightFocus,dghDialogFind]
dghClearSelection = false; // 可以避免自动清除前面的选择
3、添加一个标示列
4、通过标示列显示用户选择的情况：
procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if (DataCol = 3) and DBGridEh1.SelectedRows.CurrentRowSelected then //3 标示列的index
begin
DBGridEh1.Canvas.Brush.Color:=clGray;
DBGridEh1.Canvas.FillRect(Rect);
DBGridEh1.Canvas.font.color:=clRed;
DBGridEh1.Canvas.Textout(rect.Left,rect.Top,'√');
end;
end;
5、全选和全不选
DBGridEh1.SelectedRows.SelectAll;
DBGridEh1.SelectedRows.Clear;
6、如何使用 （delphi help）
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
s: string;
begin
if DBGridEh1.SelectedRows.Count>0 then
with DBGridEh1.DataSource.DataSet do
for i:=0 to DBGridEh1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGridEh1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin
if (j>0) then s:=s+', ';
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= '';
end;
end;
7、缺陷：不能用dbgrideh的自动排序功能。