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.

Сурет. Нәтиже.

Тәжірибелік жұмыс №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
RadioGroup3	Properties	Caption	Цвет
	Properties	Items	черный зеленый красный синий
Label1	Properties	Caption	Атрибуты
Label2	Properties	Caption	Образец
ChecklistBox1	Properties	Caption	Зачеркнутый Подчеркнутый

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