SoloCodigo

Programación General => Delphi => Mensaje iniciado por: JMAlonso en Domingo 9 de Octubre de 2005, 23:10

Título: Stringgrid
Publicado por: JMAlonso en Domingo 9 de Octubre de 2005, 23:10

Alguien me puede decir al hacer click en el stringGrid, en una de las celdas,
como puedo saber que columna y fila son.


Saludos.

Título: Re: Stringgrid
Publicado por: JMAlonso en Domingo 9 de Octubre de 2005, 23:26

Y de paso como coger el valor que contiene esa celda.

Gracias.

Título: Re: Stringgrid
Publicado por: Enko en Lunes 10 de Octubre de 2005, 00:52

Código: Text

1.  
2. procedure TForm1.StringGrid1MouseDown(Sender: TObject;
3.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
4. var
5.     aRow, aCol: integer;
6.     Cadena: string;
7. begin
8.   StringGrid1.MouseToCell(X, Y, aCol, ARow);
9.   Cadena := StringGrid1.Cells[aRow, aCol];
10. end;
11.  
12.  

Al evento onMouseDown añadile las variables ARow  y ACol de  tipo integer. Pueden tener otro nombre.

Título: Re: Stringgrid
Publicado por: JMAlonso en Lunes 10 de Octubre de 2005, 10:43

Pues en principio yo tambien habia pensado eso, pero me devuelve en la
cadena el valor vacio.

No lo entiendo.

Título: Re: Stringgrid
Publicado por: bartolomeo en Lunes 10 de Octubre de 2005, 17:42

en donde lo estas capturando???, por que la instruccion enunciado por Enko esta perfecta   :scream:

Título: Re: Stringgrid
Publicado por: Enko en Lunes 10 de Octubre de 2005, 18:03

Cita de: "JMAlonso"

Pues en principio yo tambien habia pensado eso, pero me devuelve en la
cadena el valor vacio.

No lo entiendo.

Lo que dices ocure solo cuando haces clic en el StringGrid sin pegarle a una celda, es decir, en el espacio vacio  :alien:
(Recien lo probé)

Título: Re: Stringgrid
Publicado por: JMAlonso en Martes 11 de Octubre de 2005, 00:27

Gracias , ya he conseguido que funcione.

saludos.

Título: Re: Stringgrid
Publicado por: bartolomeo en Martes 11 de Octubre de 2005, 00:35

Cual fue la solucion???   :blink:

Título: Re: Stringgrid
Publicado por: JMAlonso en Jueves 13 de Octubre de 2005, 23:08

Perdon por la tardanza.

Lo que he hecho es lo siguiente.Lo que se escribio en el Grid lo he metido
tambien en un array de dos dimensiones.Dado que si me da la fila y la columna
en la que pincho en el grid, con dicha fila y columna accedo al array y listo.

Fila:=FrmPrestamo.StGridCuadricula.Row;
Columna :=FrmPrestamo.StGridCuadricula.Col;

TotalPorMes:=Resultado[Fila,Columna];


Gracias por todo.Sois de gran ayuda y os estoy muy agradecido , de verdad.