procedure TForm1.Button2Click(Sender: TObject);
var
Row: Integer;
begin
StringGrid1.RowCount := StringGrid1.RowCount + 1;
Row := StringGrid1.RowCount - 1;
StringGrid1.Cells[1, Row]:='test';
StringGrid1.Row := Row;
end;
poradna.net
Neregistrovaný Přihlásit Registrovat