Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   TStringGrid Delete Row (https://www.clubdelphi.com/foros/showthread.php?t=54393)

luigi_cr 17-03-2008 18:32:34

TStringGrid Delete Row
 
Pues eso como elimino una fila de un TstringGrid...:confused:

eduarcol 17-03-2008 19:07:57

Lo que yo he logrado es disminuir el numero de filas, pero no eliminar una en especifica, para eso recurro a un truco, subo todas las filas una posicion y elimino el ultimo

Northern 17-03-2008 19:21:56

Tienes este truco de tamaracka:


Código Delphi [-]
 type
  TMyStringGrid = class(TStringGrid);

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  MyStringGrid: TMyStringGrid;
begin
  // creates a pointer to the stringGrid - do not free or nil;
  // otherwise you will wipe out you stringGrid1;
  MyStringGrid := TMyStringGrid(StringGrid1);
  MyStringGrid.deleteRow(1);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  StringGrid1.cells[1,1] := 'HELLO1';
  StringGrid1.cells[1,2] := 'HELLO2';
  StringGrid1.cells[1,3] := 'HELLO3';
end;



Saludos


La franja horaria es GMT +2. Ahora son las 16:34:03.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi