Quitar una fila o columna en un TDrawGrid

Artículo por Club Developers · 02 March 2006

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