StrinGrid опустить значения вниз

Как опустить все значения StrinGGrid на 1 позицию ниже? )
9 ответов

Самый простой, работающий во всех версиях Дельфи способ - это воспользоваться методом предка TCustomGrid.MoveRow в обратном цикле по строкам грида. 


Это как? )


Это как? ) 
type  THackGrid = class(TCustomGrid);...StringGrid1.RowCount:=StringGrid1.RowCount+1;for i:=StringGrid1.RowCount-2 downto 1 do  THackGrid(StringGrid1).MoveRow(i,i+1);
По-моему так.


ошибка на строке THackGrid(DBAdvGrid1).MoveRow(i,i+1);
undeclared identifier: 'MoveRow'


А какой тип у DBAdvGrid1?


ошибка на строке THackGrid(DBAdvGrid1).MoveRow(i,i+1);undeclared identifier: 'MoveRow'
Не верю.


почему не веришь?? не сработало если (


почему не веришь?? не сработало если ( 
Если написал в точности как в моем примере, такой ошибки быть не может!


MrDmitry,
procedure TForm1.Button1Click(Sender: TObject);varX: integer;beginwith StringGrid1 do     begin     RowCount := RowCount + 1;     for X := RowCount downto 2 do         Rows[X] := Rows[X-1];     Rows[1].Clear;     end;end;