设置DBgrid的属性Options下的dgMultiSelect为True 然后再配合下面的代码即可实现想要的功能 procedure TForm1.btnOKClick(Sender: TObject); var i: Integer; begin for I := 0 to DBGrid1.SelectedRows.Count - 1 do begin adsData.Book := DBGrid1.SelectedRows.Items[i]; Caption := Caption + ' -> ' + adsData.FieldByName('name').AsString; end; end;关键能够获取到哪些是被选中的, 其他的问题就迎冷而解!
然后再配合下面的代码即可实现想要的功能
procedure TForm1.btnOKClick(Sender: TObject);
var
i: Integer;
begin for I := 0 to DBGrid1.SelectedRows.Count - 1 do
begin
adsData.Book := DBGrid1.SelectedRows.Items[i];
Caption := Caption + ' -> ' + adsData.FieldByName('name').AsString; end;
end;关键能够获取到哪些是被选中的, 其他的问题就迎冷而解!