StartprogrammingusingObjectPascal:ListBoxApplication

ListBox 프로그램

다음 예제에서는 목록 상자에 텍스트를 추가하고, 삭제하며, 목록을 지우려고 합니다. 이 프로그램을 만들기 위해 다음 순서를 따릅니다.

- 새 프로그램을 만들고 메인 폼에 네 개의 단추와 편집 상자, 목록 상자(TListBox)를 놓아둡니다.

- 단추들의 이름을 아래 이름들로 바꿉니다.

btAdd, btClear, btDelete, btClose

- 아래 그림 대로 단추의 이름을 따라 캡션을 바꿉니다.

- 단추의 OnClick 이벤트에 이들 이벤트 이벤트 핸들러를 작성합니다.

procedure TForm1.btAddClick(Sender: TObject);
begin
    ListBox1.Items.Add(Edit1.Text);
end;

procedure TForm1.btClearClick(Sender: TObject);
begin
    ListBox1.Clear;
end;

procedure TForm1.btDeleteClick(Sender: TObject);
var
    Index: Integer;
begin
    Index:= ListBox1.ItemIndex;
    if Index <> -1 then
        ListBox1.Items.Delete(Index);
end;

procedure TForm1.btCloseClick(Sender: TObject);
begin
    Close;
end;

Add 단추를 누르면 편집 상자의 텍스트가 목록에 삽입될 것입니다. Delete 단추를 누르면 현재 선택한 항목을 삭제할 것입니다. Clear 단추를 누르면 모든 목록을 지울 것입니다. 마지막으로 Close 단추를 누르면 프로그램을 닫을 것입니다.