Deletar uma linha da StringGrid selecionada pelo mouse

Delphi

25/01/2004

Pessoal na minha strinGrid eu estou com a opcao GoRowSelec ativa, o que seleciona toda a linha da stringGrid, minha duvida é....como deletar a linha que o mouse escolheu.

Desde ja agradeço, um abraço, Henry.


Henry

Henry

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

25/01/2004

Para deletar linha no stringgrid vc tem copiar a linha debaixo do mouse para cima ir copiando da linha a linha para cima até o fim da stringgrind.

Ex:

var
  Form1: TForm1;
  lin:integer;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
   lin:=ARow;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var i, j:integer;
begin
   for i:=lin to StringGrid1.RowCount-1 do
      for j:=0 to StringGrid1.colCount do
         StringGrid1.Cells[j,i]:=StringGrid1.Cells[j,i+1];

   StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;



GOSTEI 0
Henry

Henry

25/01/2004

Putz Fabião, essa pego na veia da inflamação mesmo, certinho na pinha, na mosca, pego na gorduchinha mesmo, piso na baratinha, valeu mesmo, me quebro um galho massa mesmo.


GOSTEI 0
POSTAR