主页 / 问题 / 795578
Accepted
delphi
Asked:2020-03-09 16:59:23 +0000 UTC2020-03-09 16:59:23 +0000 UTC

如何在Delphi中使用ctrl + a在dbgrid中选择整行

  • 772

通过单击 dbgrid 中所有行的按钮选择是否可以使用 ctrl + 组合键选择所有行？

function GridSelectAll(Grid: TDBGrid): Longint;
begin
  Result := 0;
  Grid.SelectedRows.Clear;
  with Grid.Datasource.DataSet do
  begin
    First;
    DisableControls;
    try
      while not EOF do
      begin
        Grid.SelectedRows.CurrentRowSelected := True;
        inc(Result);
        Next;
      end;
    finally
      EnableControls;
    end;
  end;
end;

procedure TForm2.btn13Click(Sender: TObject);
begin
  GridSelectAll(dbgrd1);
end;
delphi-7

1 个回答

  1. Best Answer

    注册一个全局热键并在事件中调用您的选择函数，或者设置表单的 KeyPreview := True 并在 OnKeyDown 事件中处理按下的键。

    procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (Key = $41) then
    then  GridSelectAll(dbgrd1);
end;
    • 2

相关问题