Читайте также:
|
Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Button(1), Memo(1), ComboBox(2), CheckListBox(1) компоненттерін алып, форманы келесі түрге келтіреміз (41-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз (Кесте 22).
| Компонент | Терезе бөлігінен Object Inspector | Қасиеті | Сипаттама |
| Button1 | Properties | Caption | Шыгару |
| ComboBox1 | Properties | Items | Дүйсенбі Сейсенбі Сәрсенбі Бейсенбі Жұма Сенбі Жексенбі |
| CheckListBox1 | Properties | Items | Негізгі Қосымша |
41-сурет. Форма түрі.
Button1 компентінің OnClick қасиетіне келесі кодты жазамыз:
pr ocedure TForm1.Button1Click(Sender: TObject);
begin
if (combobox1.ItemIndex=0) and (checklistbox1.ItemIndex=0) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Шет тили°');
Memo1.Lines.Add('Орыс тили');
Memo1.Lines.Add('Дене шыныктыру');
Memo1.Lines.Add('Дене шыныктыру');
end;
begin
if (combobox1.ItemIndex=1) and (checklistbox1.ItemIndex=0) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Орыс тили');
Memo1.Lines.Add('Математика');
Memo1.Lines.Add('Косымша Математика');
Memo1.Lines.Add('физика');
end;
begin
if (combobox1.ItemIndex=2) and (checklistbox1.ItemIndex=0) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Информатика');
Memo1.Lines.Add('Дене шыныктыру');
Memo1.Lines.Add('Адебиет');
Memo1.Lines.Add('Косымша Адебиет');
end;
begin
if (combobox1.ItemIndex=3) and (checklistbox1.ItemIndex=0) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Тарих');
Memo1.Lines.Add('Математика');
Memo1.Lines.Add('Шетел тили');
Memo1.Lines.Add('Саясатану');
end;
begin
if (combobox1.ItemIndex=4) and (checklistbox1.ItemIndex=0) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Математика');
Memo1.Lines.Add('Косымша Математика');
Memo1.Lines.Add('Геометрия');
Memo1.Lines.Add('Орыс тили');
end;
begin
if (combobox1.ItemIndex=5) and (checklistbox1.ItemIndex=0) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add(Казак тили');
Memo1.Lines.Add('Орыс тили');
Memo1.Lines.Add('Математика');
Memo1.Lines.Add('Геометрия');
end;
begin
if (combobox1.ItemIndex=6) and (checklistbox1.ItemIndex=0) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Демалыс');
end;
begin
if (combobox1.ItemIndex=0) and (checklistbox1.ItemIndex=1) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add(Дене шыныктыру');
Memo1.Lines.Add('Технология');
Memo1.Lines.Add(Технология');
Memo1.Lines.Add('Математика');
Memo1.Lines.Add(Информатика');
end;
begin
if (combobox1.ItemIndex=2) and (checklistbox1.ItemIndex=1) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add(Казак тили');
Memo1.Lines.Add('Адебиет');
Memo1.Lines.Add(Косымша Адебиет');
Memo1.Lines.Add('Музыка');
Memo1.Lines.Add('Музыка');
end;
begin
if (combobox1.ItemIndex=4) and (checklistbox1.ItemIndex=1) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Математика');
Memo1.Lines.Add('Косымша Математика');
Memo1.Lines.Add('Геометрия');
Memo1.Lines.Add('Орыс тили');
end;
begin
if (combobox1.ItemIndex=1) and (checklistbox1.ItemIndex=1) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add(Казак тили');
Memo1.Lines.Add('Орыс тили');
Memo1.Lines.Add('Математика');
Memo1.Lines.Add('Геометрия');
end;
begin
if (combobox1.ItemIndex=3) and (checklistbox1.ItemIndex=1) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Тарих');
Memo1.Lines.Add('Математика');
Memo1.Lines.Add('Шетел тили');
Memo1.Lines.Add('Саясатану');
end;
end;
end;
end;
end;
end;
end;
end;
end;
end.
42-сурет. Нәтиже.
Дата добавления: 2015-11-16; просмотров: 123 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Тәжірибелік жұмыс №20 | | | Тәжірибелік жұмыс №23 |