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;
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 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;
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;