首先,DBGrid的Options中的dgMultiSelect要设为True。procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
DBGrid1.SetFocus;
DBGrid1.DataSource.DataSet.First;
keybd_event(VK_SHIFT, 0, 0, 0);
for I := 1 to DBGrid1.DataSource.DataSet.RecordCount - 1 do
begin
keybd_event(VK_DOWN, 0, 0, 0);
keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
end;
keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
end;
var
I: Integer;
begin
DBGrid1.SetFocus;
DBGrid1.DataSource.DataSet.First;
keybd_event(VK_SHIFT, 0, 0, 0);
for I := 1 to DBGrid1.DataSource.DataSet.RecordCount - 1 do
begin
keybd_event(VK_DOWN, 0, 0, 0);
keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
end;
keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
end;
解决方案 »
- 求Delphi算拼音码的源码有木有。。
- 如何看 00003ac9 这个地址 是什么模块调用的? Runtime error 203 at 00003ac9
- TMonStatus = (s_KillHuman, s_UnderFire, s_Die, s_MonGen);
- EXE文件如何读取它自身的内容.
- 怎样得到TREEVIEW选中节点的上几级目录?
- 主从表中的从表增加记录时,第一笔记录录入后,第二个记录增加是看不到上面的记录
- 还是Access中的日期问题
- DBgrid中沒有OnRowEnter事件怎麼辦????? 牛人過來指教!!!!!
- 请问:为什么我在Dephi5中不能使用SQL Server中的nvarchar类型字段???急!
- 新手请教:如何打开和关闭一个MDI子窗口?谢谢!
- 妈的!!!这commandtext为何这么难用?????????????????????????????????????????
- 安装DELPHI6.0的朋友进
然后按钮的Click事件如下:
procedure TForm1.Button7Click(Sender: TObject);
begin
Query1.First;
while not Query1.Eof do
begin
DbGrid1.SelectedRows.CurrentRowSelected:=True;//主要是利用DbGrid的这个属性
Query1.Next;
end;
end;