[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);