在dbgrideh 如何全选纪录 ( 积分: 100 )

如题

见Ehlib的Demo1
procedure TForm1.ppmSelectAllClick(Sender: TObject);
begin
if (ActiveControl is TDBGridEh) then
with TDBGridEh(ActiveControl) do
if CheckSelectAllAction and (geaSelectAllEh in EditActions) then
Selection.SelectAll;
end;

将dbgrideh1中optios属性中的dgmultiselect设为true
在代码中添加：
dbgrideh1.SelectedRows.SelectAll;