Пример1

Пусть требуется организовать выбор фамилий из списка.

Для набора фамилий активизируем текстовый редактор с помощью свойства Items. Предположим, что необходимо выбранную фамилию из списка выводить в компоненту Label.

unit U4;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm2 = class(TForm)

ListBox1: TListBox;

Label1: TLabel;

Label2: TLabel;

procedure FormCreate(Sender: TObject);

procedure ListBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.FormCreate(Sender: TObject);

begin

ListBox1.ItemIndex:= 0;

Label1.Caption:= ListBox1.Items[ListBox1.ItemIndex];

end;

procedure TForm2.ListBox1Click(Sender: TObject);

begin

Label1.Caption:= ListBox1.Items[ListBox1.ItemIndex];

end;

end.

Дата добавления: 2014-01-07