Colocar un título y asociar evento en TStringGrid

[GerTorresM]

Hola a todos:

La situación del día de hoy es la siguiente

estoy creando un TStringGrid mediante código de la siguiente forma

Código Delphi [-]
    self.ListadoPredios_temporal:= TStringGrid.Create(self);
    with self.ListadoPredios_temporal do
     begin
       top:= 20;
       left:= 20;
       Height:= 300;
       Width:= 117;
       FixedCols:= 0;
       FixedRows:= 1;
       ColCount:= 1;
       DefaultColWidth:= 94;
       DefaultRowHeight:= 17;
       Parent:= self;
     end;

al ejecutar el código en efecto me crea el objeto, ahora lineas mas abajo coloco el título correspondiente

Código Delphi [-]
  Self.ListadoPredios_temporal.Cells[0,0]:= 'Código Predio';

y es ahí cuando me surge las primeras preguntas:

¿ si de hecho deje FixedRows:= 1, para que me dejara en alto el título, por que no o hace ? y Cómo puedo dejar centrado el título?.

y como tercera pregunta me surge la siguiente:

¿Como puedo asociar un método (procedimiento) al evento onClick del objeto?

Adjunto en formato ZIP la imagen del objeto creado.

Agradezco de antemano la colaboración que me puedan dar.


gertorresm
Colombia

[Neftali [Germán.Estévez]]

Empezado por GerTorresM

¿ si de hecho deje FixedRows:= 1, para que me dejara en alto el título, por que no o hace ? y Cómo puedo dejar centrado el título?.

y como tercera pregunta me surge la siguiente:

¿Como puedo asociar un método (procedimiento) al evento onClick del objeto?

Adjunto en formato ZIP la imagen del objeto creado.

Revisa además del FixedRows, que RowCount sea > 1, de otra forma la primera no tendrá efecto.
Para el título centrado tendrás que hacerlo de forma manual usando algun evento de pintado de celdas.
Para asignar el click, se hace igual que para cuelquier otro componente; En el club puedes encontrar ejemplos de cómo asignar eventos en ejecución. La idea es crear un procedimientop con los mismos parametros que el evento y asignarlos

Código Delphi [-]
  stringgrid1.Onclick := MyOnclick;

El ZIP no lo has puesto.

[GerTorresM]

Neftali:

Muchas gracias por tu comentario, si de hecho la primera parte ya esta solucionada, y en efecto tienes la razón con respecto al numero de filas, pero de la segunda me asaltan un serie de dudas, colocas el siguiente código

Código Delphi [-]
  stringgrid1.Onclick := MyOnclick;

pero en donde lo debo colocar, es decir como el sistema sabe cuando se ha hecho click en el el StringGrid, en esa parte si estoy muy perdido agradezco tu colaboración


gracias de antemano



gertorresm
colombia

[ecfisa]

Hola.

Podés ponerlo en la creación del form:

procedure TForm1.FormCreate(Sender: TObject);
begin
  stringgrid1.Onclick := MyOnclick;
end;

Saludos.

[GerTorresM]

Muchas gracias a Neftali y a ecfisa, con las explicaciones doy por entendido el tema y considero cerrado el hilo