Necesito saber cuales filas de un Stringgrid estan selecionadas.
La idea es poder eliminar las filas selecionadas por el usuario.
Por mas q e buscado no e encontrado ningun metodo q me permita averiguar cuales estan selecionadas. algien me puede ayudar?.
gracias
Publicado:
Mar Feb 13, 2007 8:42 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: filas selecionadas en stringgrid
Anuncios
cojones escribió:
Necesito saber cuales filas de un Stringgrid estan selecionadas.
La idea es poder eliminar las filas selecionadas por el usuario.
Por mas q e buscado no e encontrado ningun metodo q me permita averiguar cuales estan selecionadas. algien me puede ayudar?.
gracias
Tal vez te sirva este código, recorre las filas seleccionadas y, además, las elimina:
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
BitBtn1: TBitBtn;
Memo1: TMemo;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure eliminarLinea (numeroLinea : integer; stGrid: TstringGrid);
var
i: Integer;
begin
stGrid.Row := numeroLinea;
if (stGrid.Row = stGrid.RowCount - 1) then
stGrid.RowCount := stGrid.RowCount - 1
else
begin
{ Not the last row}
for i := numeroLinea to stGrid.RowCount - 1 do
stGrid.Rows[i] := stGrid.Rows[i + 1];
stGrid.RowCount := stGrid.RowCount - 1;
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i : Integer;
begin
for i := (StringGrid1.Selection.Top) to (StringGrid1.Selection.Bottom) do
begin
eliminarLinea (i, StringGrid1);
end;
end;
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A