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

Тапсырма: Сөздік бағдарламасын құру.

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

Компонент	Терезе бөлігінен Object Inspector		Қасиеті	Сипаттама
BitBtn	Properties		Kind	&Close
Button1	Properties		Caption	Добавить
Button2	Properties		Caption	Удалить
Button3	Properties		Caption	Редактировать
Button4	Properties	Caption			Сохранить
Combobox1	Properties	Caption			вставка пробела
CheckBox1	Properties	Caption			Только чтение

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

var num:real;

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

procedure TForm1.Button1Click(Sender: TObject);

begin

ComboBox1.Items.Add (ComboBox1.Text);

if ComboBox1.Itemindex = -1 then

ComboBox1.Text:='';

end;

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

procedure TForm1.Button2Click(Sender: TObject);

begin

if MessageDlg('Вы действительно хотите удалить запись?',

mtWarning,[mbYes,mbNo],0)=mrYes then

ComboBox1.Items.Delete(ComboBox1.ItemIndex);

end;

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

procedure TForm1.Button4Click(Sender: TObject);

begin

ComboBox1.Items.SaveToFile('glostext.txt');

end;

Form1компонентінің OnCreate қасиетіне

procedure TForm1.FormCreate(Sender: TObject);

begin

ComboBox1.Items.LoadFromFile('glostext.txt');

end;

Form1компонентінің OnClick қасиетіне

procedure TForm1.FormClick(Sender: TObject);

begin

num:=ComboBox1.itemindex;

end;

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

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked=False then

ComboBox1.Style:=csDropDown else

ComboBox1.Style:=csDropDownList;

if CheckBox1.Checked=false then

Button1.Enabled:=true else;

Button1.Enabled:=false;

if CheckBox1.Checked=False then

Button2.Enabled:=true else;

Button2.Enabled:=false;

if CheckBox1.Checked=False then

Button3.Enabled:=true else;

Button3.Enabled:=false;

if CheckBox1.Checked=False then

Button4.Enabled:=true else;

Button4.Enabled:=false;

end;

end.

22-сурет. Нәтиже.

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

Тапсырма: Edit-те берілген мәтіннің түсін, шрифтін, өлшемін өзгертетін бағдарламаны құру.

Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Edit(1), RadioGroup(3), CheckListBox(1), Label(2) компоненттерін алып, форманы келесі түрге келтіреміз (23-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз(Кесте 12).

Компонент	Терезе бөлігінен Object Inspector	Қасиеті	Сипаттама
Edit1	Properties	Caption	АаБбВвФф
RadioGroup1	Properties	Caption	Начертание
	Properties	Items	Обычный Курсив Полужирный Полужирный курсив
RadioGroup2	Properties	Caption	Размер
	Properties	Items	8 10 12 14
RadioGroup3	Properties	Caption	Цвет
	Properties	Items	черный зеленый красный синий
Label1	Properties	Caption	Атрибуты
Label2	Properties	Caption	Образец
ChecklistBox1	Properties	Caption	Зачеркнутый Подчеркнутый

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

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

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

Case RadioGroup1.ItemIndex of

0:edit1.font.style:=[];

1:edit1.font.style:=[fsitalic];

2:edit1.font.style:=[fsitalic];

3:edit1.font.style:=[fsitalic, fsbold];

end;

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

procedure TForm1.CheckListBox1Click(Sender: TObject);

begin

if checklistbox1.Checked[1]

then edit1.Font.style:=edit1.font.style+[fsstrikeout]

else edit1.font.style:=edit1.font.style+[fsstrikeout];

if checklistbox1.checked[0]

then edit1.font.style:=edit1.font.style+[fsunderline]

else edit1.font.style:=edit1.font.style+[fsunderline]

end;

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

procedure TForm1.RadioGroup2Click(Sender: TObject);

begin

case RadioGroup2.ItemIndex of

0:edit1.font.size:=8;

1:edit1.font.size:=10;

2:edit1.font.size:=12;

3:edit1.font.size:=14;

end;

end;

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

procedure TForm1.RadioGroup3Click(Sender: TObject);

begin

case RadioGroup3.ItemIndex of

0:edit1.font.color:=clblack;

1:edit1.font.color:=clgreen;

2:edit1.font.color:=clred;

3:edit1.font.color:=clblue;

end;

end.

24-сурет. Нәтиже.