[Delphi] 스트링그리드 제어하기

 Delphi 를 쓰다보면 가장 접하기 쉬운 그리드

기능이 적어서 가벼운 그리드인 스트링그리드(TStringGrid)를 제어하는 법을 간단히 정리해 보았습니다.
1. 스트링 그리드 ROW 삭제

var

  i: Integer;

begin

  // String Grid ROW 삭제

  for i := StringGrid5.Row to StringGrid5.RowCount - 2 do

    StringGrid5.Rows[i].Assign(StringGrid5.Rows[i + 1]);

  StringGrid5.RowCount := StringGrid5.RowCount - 1;

2. 컬럼 숨기기

StringGrid5.Colwidths[3] := -1;

3. 그리드 중간에 빈ROW 삽입하기

TStringGridMove = class(TStringGrid)

public

  procedure RowMoved(FromIndex, ToIndex: Longint);

end;

procedure TStringGridMove.RowMoved(FromIndex, ToIndex: Integer);

begin

  inherited;

end;

// 예제

TStringGridMove(StringGrid1).RowCount = TStringGridMove(StringGrid1).RowCount + 1

TStringGridMove(StringGrid1).RowMoved(TStringGridMove(StringGrid1).RowCount, 3);