StartprogrammingusingObjectPascal:ListBoxApplication

From 흡혈양파의 번역工房
Jump to: navigation, search

ListBox 프로그램

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


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

- 버튼들의 이름을 아래 이름들로 바꿉니다.

btAdd, btClear, btDelete, btClose


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

Lazarus 06.png

- 버튼의 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;

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