Удаление строки из StringGrid
Подскажите плиз,как удалить строку из StringGrid...
Код: Выделить всё
procedure GridDeleteRow(RowNumber: Integer; Grid: TstringGrid);
var
i: Integer;
begin
Grid.Row := RowNumber;
if (Grid.Row = Grid.RowCount - 1) then
{ On the last row}
Grid.RowCount := Grid.RowCount - 1
else
begin
{ Not the last row}
for i := RowNumber to Grid.RowCount - 1 do
Grid.Rows[i] := Grid.Rows[i + 1];
Grid.RowCount := Grid.RowCount - 1;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GridDeleteRow(3, stringGrid1);
end;
Спасибо огромное! =)
- Игорь Акопян
- Сообщения: 1419
- Зарегистрирован: 13 окт 2004, 17:11
- Откуда: СПБ
- Контактная информация:
OTELLO, можно хитрее
в классе TCustomGrid очень много вкусного находится в секции protected, и, соответственно видно только прямому наследнику - есть один вариант, который часто применяется для открытия защищённых методов:
в классе TCustomGrid очень много вкусного находится в секции protected, и, соответственно видно только прямому наследнику - есть один вариант, который часто применяется для открытия защищённых методов:
Код: Выделить всё
type
THackGrid = class(TStringGrid);
procedure TForm1.Button1Click(Sender: TObject);
begin
THackGrid(MyStringGrid).DeleteRow(3); // к примеру удалить 3 строку
end;
2 Игорь Акопян
А я годал зачем нужен сий метод,если он не использутся явно=)
Спасибо, это очень краcиво!
А я годал зачем нужен сий метод,если он не использутся явно=)
Спасибо, это очень краcиво!
А в Cbuildere так можно?
-------------
Лень - двигатель прогресса!
Лень - двигатель прогресса!
Для этого раздел по Си существует...
[syntax=Delphi] [/syntax]