Тапсырманың орындалуы:

Программа іске қосылған соң, форма бетінде Memo өрісі мен “Атты енгізу”және “Өшіру” деп аталатын екі Button компоненті шығуы қажет. “Атты енгізу” компонентін тышқанмен шерткенде 4 фамилияны енгізуді сұрайтын терезе көрінеді, Енгізілген фамилия тізімі сұрыпталған түрде Memo өрісіне жазылады. Ал “Өшіру” түймесі Memo өрісі мазмұнын өшіреді.

1. Жаңа проект ашу, оны сақтау.

2. Форма бетіне компоненттер палитрасының Standart бөлігінен 3 Button және Memo компонентін орналастыру.

3. Форманың қасиеттерін өз қалауыңыз бойынша өзгертіңіз.

4. “Атты енгізу” компонентін шертуде келесі процедура орындалады.

procedure TForm1.Button1Click(Sender: TObject);

var st:tstringlist; a:array[1..4] of string; k:byte;

begin

st:=tstringlist.Create ;

st.Sorted:=true;

for k:=1 to 4 do

begin

a[k]:=inputbox('Kelesy man','Atty engiziniz:','');

st.Add(a[k]);

end;

st.Sorted:=false;

memo1.Lines.Assign(st);

end;

5. “Өшіру” компонентін шертуде келесі әрекет орындалады.

procedure TForm1.Button2Click(Sender: TObject);

begin

memo1.Lines.Clear ;

end;

Қосымша тапсырма.

Форма іске қосылған кейін, ListBox1 компонентінде “Қызыл”, “Жасыл”, “Көк” деп аталатын форманың түсін өзгертетін тізімді және Label1 компонентіндегі сөздің шрифтісін таңдауға болатын ComboBox1 компонентін қолдану арқылы форма түсі мен шрифтті өзгертетін программа құру.

1. Жаңа проект құру, оны сақтау.

   Компонент	Қасиет	Мәні
   ListBox1	Items	Красный Зеленый Синий
   ComboBox1	Caption	Выберите шрифт
   Label1	Caption	Пробная строка
   Label2	Caption	Выберите цвет формы
   Button1	Caption	Шығу

2. Формаға келесі компоненттерді орналастырып, олардың қасиеттерін өзгерту:

3. ListBox1 компонентін шертуде келесі процедура орындалады:

procedure TForm1.ListBox1Click(Sender: TObject);

begin

if listbox1.ItemIndex=0 then form1.Color:=clred;

if listbox1.ItemIndex=1 then form1.Color:=clgreen;

if listbox1.ItemIndex=2 then form1.Color:=clblue;

end;

4. ComboBox1 компонентін шертуде келесі процедура орындалады:

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

form1.Label1.Font.Name:=combobox1.Items[combobox1.itemindex];

end;

6. форманы екі рет шертуде келесі процедура орындалады:

procedure TForm1.FormCreate(Sender: TObject);

begin

combobox1.Items:=screen.Fonts ;

end;