델파이( Delphi ) 7.2 - 리스트뷰 사용하기

Delphi 7.2 ListView.exe

리스트뷰( TListView ) 를 사용하는 예제 입니다.

리스트뷰 생성후 컨트롤 디자인창에서 마우스 버튼 오른쪽 클릭이나, 속성의 칼럼을 수정.

칼럼 수정을 할때 칼럼 목록이 나타납니다. ( 기본값 : 비어있음 )
칼럼 추가( ToolBox 추가 버튼 )후에 캡션을 수정 해주세요.

아래 그림처럼 디자인 해두고 코드를 기입 합니다.

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin//Add
  with ListView1.Items.Add do begin
    Caption := '제목'+IntToStr(index);
    SubItems.Add('A-'+IntToStr(index));
    SubItems.Add('B-'+IntToStr(index));
  end;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin//Selected
  if Assigned( ListView1.Selected ) then
  with ListView1.Selected do begin
    ShowMessage( Caption + #13#10 + SubItems.Strings[0] + #13#10 + SubItems[1] );
  end;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin//Remove
  if ListView1.Items.Count >0 then
  ListView1.Items.Delete(0);
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin//Remove Selected
  if Assigned( ListView1.Selected ) then
  ListView1.DeleteSelected;
end;