我的意思是在DBGRID中拖动鼠标,凡是被拖动放的记录显示为蓝色即为选中状态,如何实现多条记录为选中状态?请在虾们邦帮忙!设置Options.dgMiltiSelect:=true,只表明可以多选,但在程序中如何实现某具体几个记录显示的选中状态(蓝色)。
解决方案 »
- 为什么出现‘Expression Expected but Nothing found!
- windows 7 下运行32位程序报错的问题
- [探讨]delphi for php的汉字环境配置
- DELPHI里怎么用快乐报表?给分
- 求一完整的向USB口发送和接收数据的程序.
- 100分请教 delphi适合开发什么 有什么优缺点 如何打包 公司让我调查非常急 在线等诸位大哥哥帮帮忙
- 如何利用缓冲区拷贝一个大文本文件的指定行数到另外一个文件。
- Microsoft 的mscomm控件要怎么用?出现licence of Tmscomm not found.you can not use this control,on the design!要怎么办?急!!
- 程序出错后就会启动delphi的debug,如何去掉?
- 救救我,我不会这个程序!!
- 如何用delphi编麻将游戏
- 如何把unix格式的文本文件转为win32格式的文本文件?
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBook(pointer(DBGrid1.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;
然后直接拖不就完了
--按ctrl键, 再用鼠标点选