Тәжірибелік жұмыс №7

Тапсырма: Справочник бағдарламасын құру.

Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға BitBtn(1), Label(4), ListBox(1) компоненттерін алып, форманы келесі түрге келтіреміз (11-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз(Кесте 7).

Компонент	Терезе бөлігінен Object Inspector	Қасиеті	Сипаттама
Label1	Properties	Caption	' Справочник записи цвета в формате RGB '
Label2	Properties	Caption	' Цвет в формате RGB '
Label3	Properties	Caption	' '
Label4	Properties	Caption	' '
BitBtn1	Properties	Kind	&close
Listbox1	Properties	Items	black white red green azure blue puple yellow brown lime violet gray

13-сурет. Форма түрі.

ListBox1 компонентінің OnClick қасиетіне келесі кодты жазамыз:

procedure TForm1.ListBox1Click(Sender: TObject);

begin

if listbox1.ItemIndex=0 then

label4.Caption:='черный';

label4.Font.Color:=000000;

if listbox1.ItemIndex=1 then begin

label4.Caption:='белый';

label4.Font.Color:=clwhite;

end;

if listbox1.ItemIndex=2 then begin

label4.caption:='красный';

label4.font.color:=clred;

end;

if listbox1.itemindex=3 then begin

label4.Caption:='зеленый';

label4.font.color:=clgreen;

end;

if listbox1.itemindex=4 then begin

label4.caption:='голубой';

label4.font.color:=claqua;

end;

if listbox1.itemindex=5 then begin

label4.caption:='синий';

label4.font.color:=clblue;

end;

if listbox1.itemindex=6 then begin

label4.Caption:='пурпурный';

label4.font.color:=clpurple;

end;

if listbox1.itemindex=7 then begin

label4.caption:='желтый';

label4.font.color:=clyellow;

end;

if listbox1.itemindex=8 then begin

label4.caption:='коричневый';

label4.font.color:=clmaroon;

end;

if listbox1.itemindex=9 then begin

label4.caption:='лаймовый';

label4.color:=cllime;

end;

if listbox1.itemindex=10 then begin

label4.caption:='фиолетовый';

label4.font.color:=clfuchsia;

end;

if listbox1.itemindex=11 then begin

label4.caption:='серый';

label4.font.color:=clgray;

end;

end;

end.

Дата добавления: 2015-11-16