Quitar una fila o columna en un TDrawGrid

2371 vistas

Sólo necesitamos hacer públicos los métodos DeleteRow y DeleteColumn de la clase TCustomGrid de donde hereda la clase TDrawGrid:



delphi
  1. type TPublicDrawGrid = class(TDrawGrid);
  2. ...
  3. procedure TForm1.Button1Click(Sender: TObject);
  4. begin
  5.   // borrar la línea nº3 (que es la 4art, porque empieza desde 0)
  6.   TPublicDrawGrid(DrawGrid1).DeleteRow(3);
  7.  
  8.   // borrar la primero columna (columna nº0)
  9.   TPublicDrawGrid(DrawGrid1).DeleteColumn(0);
  10. end;