Главная страницаОбратная связьКарта сайта

Вставка и удаление строк из TStringGrid

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

// For this tip you need a StringGrid1 and a Button1. 
// Fur diesen Tip braucht man ein StringGrid1 und einen Button1. 


{...}
 type
   TForm1 = class(TForm)
     StringGrid1: TStringGrid;
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     {...}
   public
     {...}
   end;

 type
   TStringGridHack = class(TStringGrid)
   protected
     procedure DeleteRow(ARow: Longint); reintroduce;
     procedure InsertRow(ARow: Longint);
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.DFM}

 procedure TStringGridHack.DeleteRow(ARow: Longint);
 var
   GemRow: Integer;
 begin
   GemRow := Row;
   if RowCount > FixedRows + 1 then
     inherited DeleteRow(ARow)
   else
     Rows[ARow].Clear;
   if GemRow < RowCount then Row := GemRow;
 end;

 procedure TStringGridHack.InsertRow(ARow: Longint);
 var
   GemRow: Integer;
 begin
   GemRow := Row;
   while ARow < FixedRows do Inc(ARow);
   RowCount := RowCount + 1;
   MoveRow(RowCount - 1, ARow);
   Row := GemRow;
   Rows[Row].Clear;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   // Insert Row, Zeile hinzufugen 
  TStringGridHack(StringGrid1).InsertRow(1);
   // Remove Row, Zeile entfernen 
  TStringGridHack(StringGrid1).DeleteRow(2);
 end;

 end.

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Вставка и удаление строк из TStringGrid", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info