Obtener celdas seleccionadas de un StringGrid
 

Estimados

Buenos días, tengo un TbsSkinStringGrid el cual se dibuja en tiempo de ejecución en base a una consulta (es similiar a un StringGrid), luego puedo seleccionar un o mas celdas cambiando el color de fondo y el texto de las mismas; ¿como puedo saber cuales son las celdas seleccionadas por el usuario?

Saludos

Mira los enlaces del final de esta página, abajo del todo, seguramente te sirven

Gracias

Ya revise este codigo

/* Mostrar selección en ListBox */ void __fastcall TForm1::Button1Click(TObject *Sender) { TGridRect GR = StringGrid1->Selection; AnsiString s; for(int f=GR.Top; f <= GR.Bottom; f++){ s= ""; for(int c=GR.Left; c <= GR.Right; c++) s = s + StringGrid1->Cells[f][c]; ListBox1->Items->Add(s); } }

pero no me queda claro como lo recorre con el for ya que marca error en "f=Gr.Top"

adjunto codigo del boton

Código Delphi [-]
  Grid : TbsSkinStringGrid;
  Gr   : TGridRect;
begin

  Gr := Grid.Selection;
  for(int f=GR.Top; f <= GR.Bottom; f++)
   begin
    s= "";
    for(int c=GR.Left; c <= GR.Right; c++)
     begin
      s = s + StringGrid1->Cells[f][c];
      ShowMessage(s);
     end;
   end;

¿Pero ese qué lenguaje es delphic o cdelphi :p?

Estimado

El lenguaje es Delphi.

¿Y ese código que has puesto te compila?

El código, a lo sumo, es compilable desde Rad Studio pero Delphi, lo que se dice Delphi, va a ser que no.

No, no compila, pero puse este otro codigo

Código Delphi [-]
Grid : TbsSkinStringGrid;   
Gr   : TGridRect; 
begin    
  Gr       := Grid.Selection;   
  gr_left  := Gr.Left;   
  gr_top   := Gr.Top;   
  gr_right := Gr.Right;   
  gr_bottom:= Gr.Bottom;     
  ShowMessage('Seleccion '+IntToStr(gr_left)+','+IntToStr(gr_top)+' a la '+IntToStr(gr_right)+','+IntToStr(gr_bottom));

pero los valores no me cuadran, yo esperaba 3,2 a la 3,3 que serian las celdas seleccionadas

Ese "Selecction" del grid parece que no sea para sacar la columna y la fila seleccionada sino la región que se quiere colorear.

Efectivamente muestra la región que se dibujo.

Lo que necesito es obtener el nro de Columna y Fila de la región que se coloreo, que puede perfectamente ser mas de una celda.

Hola Alejandro.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with StringGrid1.Selection do
    ShowMessage(Format('Desde, col: %d row: %d',[Left,Top])+#10+
                Format('Hasta, col: %d row: %d',[Right,Bottom]));
end;

Saludos. :)

Estimado

Una vez mas se agracede su aporte, funciona perfectamente.

Saludos
Alejandro A.

O no lo entiendo o no soy capaz de ver que es lo que pasa.

¿Qué diferencia conceptual hay entre el código que puso ecfisa y el que puso Alejandro73?

En ambos usa las mismas propiedades para los mismo valores, ¿no?

Hola ozsWizzard.

No había visto el mensaje #8 hasta ahora que lo mencionas (o tal vez no le presté la debida atención) ...

Pero si las variables gr_left, gr_top, gr_right y gr_bottom están declaradas como Integer, conceptualmente ninguna.

Saludos.:)

Ah, vale, entonces no le daba el resultado correcto por cualquier otro motivo, jeje

Estaba yo asustao, jajajaja