Deletar uma linha da StringGrid selecionada pelo mouse

Question

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.

Fabio.hc · Answer

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;

Henry · Answer

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....

F�rum Deletar uma linha da StringGrid selecionada pelo mouse #209342