adicione essa procedure no form
procedure ApagarLinhaColunaStringGrid(StringGrid: TStringGrid;No exemplo vamos usar o evento OnKeyDown do StringGrid
LinhaOuColuna: boolean; Qual: integer);
var
i: integer;
begin
if LinhaOuColuna = True then
begin
for i := StringGrid.Row to StringGrid.RowCount - 1 do
begin
StringGrid.Rows[i] := StringGrid.Rows[i + 1];
end;
StringGrid.RowCount := StringGrid.RowCount - 1;
end
else
begin
for i := StringGrid.Col to StringGrid.ColCount - 1 do
begin
StringGrid.Cols[i] := StringGrid.Cols[i + 1];
end;
StringGrid.ColCount := StringGrid.ColCount - 1;
end;
end;
procedure Form1.StringGrid1.KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);beginif key = VK_DELETE then //Se a tecla for o delete entãobeginApagarLinhaColunaStringGrid("Seu StringGrid",
"True pra apagar linha, False pra apagar coluna",
"Numero da linha que voce quer apagar");
end;end;
No comments:
Post a Comment