Bug de Embarcadero?

[jhonalone]

ME VOLVIO A PASAR EL TIEMPO DE 25 MINUTOS PARA CAMBIAR EL POST.

Después de tenerlo completo. Al probar los vídeos (con la misma estructura que el que hice de prueba y los mismos textos copiados) no funcionan. ¿Qué hago mal?

He intentado copiar las URL completas, pero al modificar el post ya no está esta opción disponible.

Mientras que las vuelvo a poner, se me pasan los 25 minutos.

Repito todo.

Bueno, el mensaje anterior no sirve de nada. Estaba editando... y se me pasó el tiempo de 30 m.
Es una faena, porque lo tenía casi terminado y ahora tengo que empezar de nuevo.

POR SI LE INTERESA A ALGUIEN.

Vídeo del problema, (Que parece que me explico mal).

https://www.youtube.com/watch?v=wLpycxovW7c&feature


Vídeo del problema resuelto.

https://www.youtube.com/watch?v=-711A257_0g


Código que funciona mal

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Col9.Width := grdTablero.Width / 9;
  Col1.Width := grdTablero.Width / 9;
  Col2.Width := grdTablero.Width / 9;
  Col3.Width := grdTablero.Width / 9;
  Col4.Width := grdTablero.Width / 9;
  Col5.Width := grdTablero.Width / 9;
  Col6.Width := grdTablero.Width / 9;
  Col7.Width := grdTablero.Width / 9;
  Col8.Width := grdTablero.Width / 9;
   grdTablero.RowHeight:= grdTablero.Height / 9;
end;

Código que funciona bien

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Col9.Width := grdTablero.Width / 9;
  Col1.Width := grdTablero.Width / 9;
  Col2.Width := grdTablero.Width / 9;
  Col3.Width := grdTablero.Width / 9;
  Col4.Width := grdTablero.Width / 9;
  Col5.Width := grdTablero.Width / 9;
  Col6.Width := grdTablero.Width / 9;
  Col7.Width := grdTablero.Width / 9;
  Col8.Width := grdTablero.Width / 9;
   grdTablero.RowHeight:= (grdTablero.Height - 2) / 9;
   { A grdTablero.Height hay que RESTARLE algún punto, si no la última fila
     de abajo no queda seleccionada cuando se pulsa en ella siook la celda que
     estaba seleccionada antes no ccrrespondía a la última fila }
end;

La causa del problema. (Espero que se me entienda en castellano)

Dado que la rejilla (TStringGrid) llamada "grdTablero" ocupa todo el espacio de su propiedad grdTablero.RowHeight con sus 9 filas, parece que la última fila no se activa correctamente y causa el error.



La SOLUCIÓN DEL PROBLEMA.

Cuando dejamos un espacio después de la última fila, (aunque sea sólo de 2 píxeles), la última fila queda activada para recibir el foco cuando es seleccionada.

Saludos a todos.