Проект1
Створити проект, в якому потрібно ввести радіус, в компоненті ListBox вибрати: довжина кола, площа круга чи об’єм кулі.
Після натискання кнопки "Результат" має з’явитись відповідь. Відповідь вивести в текстове поле Label.
· Компонент ListBox
Компонент ListBox знаходиться на закладці Standart. За допомогою властивості Items (Strings) можна занести список. Натиснути кнопку (TStrings)
Для того, щоб був вибраний перший елемент списку потрібно створити подію для форми і написати такий код:ListBox1.ItemIndex:=0;
Для перевірки того, який елемент списку вибраний потрібно написати команду:
case ListBox1.ItemIndex of
0: команда
1:команда
end;
procedure TForm1.Button1Click(Sender: TObject);
var R,l,S,V:real;
begin
R:=StrToFloat(Edit1.Text);
case ListBox1.ItemIndex of
0:begin l:=2*Pi*R;Label2.Caption:= FloatToStrf(l,ffNumber,6,2);end;
1:begin S:=pi*R*R;Label2.Caption:= FloatToStrf(S,ffNumber,6,2);end;
2:begin V:=3/4*pi*R*R*R; Label2.Caption:=FloatToStrf(V,ffNumber,6,2);end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
listBox1.ItemIndex:=0;
end;
Проект 2.
Розробити проект, в якому за допомогою компонента ComboBox можна вибрати місяць, а в Мемо буде виводитись знак зодіака.
Для ComboBox виберіть властивість Items значення Strings і занесіть місяці.
Тоді для компонента ComboBox створіть подію OnSelect (вибір із списку) і напишіть для цієї події такий код:
procedure TForm1.ComboBox1Select(Sender: TObject);
begin
case ComboBox1.ItemIndex of
1:Memo1.Lines.Add('Знак Зодіака КОЗЕРІГ');
2:Memo1.Lines.Add('Знак Зодіака ВОДОЛІЙ');
3:Memo1.Lines.Add('Знак Зодіака РИБИ');
4:Memo1.Lines.Add('Знак Зодіака ВАГИ');
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.ItemIndex:=0;
end;
