Use tstringgrid [2]-defaultcolwidth, defaultrowheight, Col, row

Function in this example:
1. Modify the default width and height of the stringgrid unit;
2. Add rows and columns;
3. Confirm the current unit and assign a value.

Run:

// This example Code : Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, classes, extctrls, grids; Type tform1 = Class (tform) stringgrid1: tstringgrid; panel1: tpanel; button1: tbutton; button2: tbutton; button3: tbutton; Procedure handle (Sender: tobject ); procedure button3click (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} {modify unit width and height} procedure tform1.button1click (Sender: tobject); begin stringgrid1.defacolcolwidth: = 56; stringgrid1.defaultrowheight: = 18; tbutton (sender ). caption: = 'width and high'; end; {Add a row} procedure tform1.button2click (Sender: tobject); begin stringgrid1.rowcount: = stringgrid1.rowcount + 1; tbutton (sender ). caption: = 'Add a row'; end; {Add a column} procedure tform1.button3click (Sender: tobject); begin stringgrid1.colcount: = stringgrid1.colcount + 1; tbutton (sender ). caption: = 'Add a column '; end; {current unit} procedure tform1.stringgrid1click (Sender: tobject); var C, R: integer; begin C: = stringgrid1.col; {current column} r: = stringgrid1.row; {current row} stringgrid1.cells [C, R]: = format ('column: % d; row: % d', [C, r]); end.