stringgrid的问题，

Question

  如何使用CTRL+DELETE快捷键删除行！

Answer 1

//参考如下代码
type
  TStringGridEx = class(TStringGrid);procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_DELETE: if ssCtrl in Shift then
      with TStringGridEx(Sender) do
        DeleteRow(Row);
  end;
end;

Answer 2

借花献佛type
  TStringGridEx = class(TStringGrid);procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Sender Is TStringGridEx) and (Key = VK_DELETE) and (ssCtrl in Shift) then
    with TStringGridEx(Sender) do
      DeleteRow(Row);
  end;  case Key of
    VK_DELETE: if ssCtrl in Shift then
      with TStringGridEx(Sender) do
        DeleteRow(Row);
  end;
end;