Delphi – Filling a TStringGrid in Delphi

delphidelphi-xe2tstringgrid

I have a TStringGrid say StringGrid1 and one textbox say textbox1 on my delphi form. When I enter anything in textbox1, that comes in next row of the StringGrid1.

I want that the new enteries in StringGrid1 should come on top rather than on bottom. Which property should I change?

Best Answer

AFAIK There's no property you can tweak to insert a row in some position of a StringGrid.

But, you can always do a shift in code to make space in the grid for a new row.

Assuming you have a first row and columns of titles, you may code it as:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  for I := StringGrid1.RowCount - 1 downto 1 do
    StringGrid1.Rows[I] := StringGrid1.Rows[I - 1];
  StringGrid1.Cols[1][1] := Edit1.Text;
  //the commented line comes from my quick test.
  //Edit1.Text := IntToStr(StringGrid1.RowCount);
end;

Related Solutions

Delphi TStringGrid Flicker

Better late than never... I use WM_SETREDRAW. For example:

...
StringGrid1.Perform(WM_SETREDRAW, 0, 0);
try
  // StringGrid1 is populated with the data here 
finally
  StringGrid1.Perform(WM_SETREDRAW, 1, 0);
  StringGrid1.Invalidate; // important! to force repaint after all
end;
...

Delphi – Live update of StringGrid when horizontal scroll bar is moving

For the first question, you can set goThumbTracking in the StringGrid's Options at design-time, or at run-time:

StringGrid1.Options := StringGrid1.Options + [goThumbTracking];

For the third question, you can provide the functionality you need by using keyboard event handlers of the control. An example;

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  StringGrid: TStringGrid;
begin
  StringGrid := Sender as TStringGrid;
  case Key of
    VK_DOWN:
      if StringGrid.Row = StringGrid.RowCount - 1 then begin
        Key := 0;
        StringGrid.Row := StringGrid.FixedRows;
        if StringGrid.Col = StringGrid.ColCount - 1 then
          StringGrid.Col := StringGrid.FixedCols
        else
          StringGrid.Col := StringGrid.Col + 1;
      end;
    VK_UP:    //...;
    VK_RIGHT: //;
    VK_LEFT:  //;
  end;
end;

For the second question, the scrolling code seems to be buried in private methods of TCustomGrid. I have no clue how to achieve that..

Best Answer

Related Solutions

Delphi TStringGrid Flicker

Delphi – Live update of StringGrid when horizontal scroll bar is moving

Related Topic