Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Практична робота № 5 "Розробка проекту Словник"
Розробити програму, за допомогою якої користувач міг би скласти словник нових термінів. При необхідності в цей словник можна вносити зміни, доповнювати або скорочувати його. При виборі терміна на контрольній панелі з'являється його номер і загальна кількість слів у словнику.
Пояснення: новими в цій програмі є комбінований список ComboBox на сторінці палітри компонентів Standard, що поєднує рядок уведення c компонентом ListBox, вимикач CheckBox на сторінці палітри компонентів Standard, а також функція MessageDlg.
2. План розробки програми
Малюнок 2
Виділений компонент |
Вікно інспектора об'єктів |
Ім'я властивості |
Дія |
BitBtn1 |
Properties |
Caption |
&Вихід |
Kind |
bkClose |
||
ComboBox1 |
Propeties |
Text |
Вставити пропуск |
Items |
Двічі клацнувши мишею, відкрити String list editor. Увести кілька термінів, зберегти їх у файлі glostext.txt, попередньо переконавшись, що обрано потрібну папку. |
Виділений компонент |
Вікно інспектора об'єктів |
Ім'я властивості |
Дія |
Button1 |
Propeties |
Caption |
Додати |
Events |
OnClick |
ComboBox1.Items.Add (ComboBox1.Text); if ComboBox1.ItemIndex = -1 then ComboBox1.Text :=''; Останній оператор очищає рядок уведення після того, як текст із нього попадає в список. |
Виділений компонент |
Вікно інспектора об'єктів |
Ім'я властивості |
Дія |
Button2 |
Propeties |
Caption |
Видалити |
Events |
OnClick |
if MessageDlg('Ви дійсно хочете видалити запис?', mtWarning, [mbYes, mbNo], 0) = mrYes then ComboBox1.Items.Delete(ComboBox1.ItemIndex); |
Пояснення.
Дана умова означає, що при натисканні кнопки Видалити з'явиться діалогове вікно з питанням 'Ви дійсно хочете видалити запис?' із двома кнопками Yes й No. Тільки при натисканні кнопки Yes попередньо обраний термін буде вилучений зі списку.
MessageDlg є функцією із чотирма аргументами:
Функція MessageDlg повертає константу, що визначає натиснуту користувачем кнопку.
Виділений компонент |
Вікно інспектора об'єктів |
Ім'я властивості |
Дія |
Button4 |
Propeties |
Caption |
Зберегти |
Events |
OnClick |
ComboBox1.Items.SaveToFile (glostext.txt); |
|
Form1 |
Events |
OnCreate |
ComboBox1.Items.LoadFromFile (glostext.txt); |
Пояснення.
Тепер при створенні форми в список ComboBox1 завантажується вміст файлу glostext.txt, а змінений список запам'ятовується в ньому при натисканні кнопки Зберегти.
Виділений компонент |
Вікно інспектора об'єктів |
Ім'я властивості |
Дія |
Button3 |
Propeties |
Caption |
Редагувати |
ComboBox1 |
Events |
OnClick |
num:= ComboBox1.ItemIndex; Попередньо описати в розділі Var целочисленную змінну num. |
Button3 |
Events |
OnClick |
ComboBox1.Items.Delete (num); ComboBox1.Items.Add (ComboBox1.Text); if ComboBox1.ItemIndex = -1 then ComboBox1.Text:=''; |
Пояснення.
Виділений компонент |
Вікно інспектора об'єктів |
Ім'я властивості |
Дія |
Events |
OnClick |
ComboBox1.Items.SaveToFile (glostext.txt); |
Пояснення.
Комбіновані списки бувають 3 типів:
прості (simple) - список завжди відкритий;
що розкриваються (drop down) - список згорнуть;
незмінні (drop down list) - список згорнуть і можливий тільки вибір елемента зі списку.
Виділений компонент |
Вікно інспектора об'єктів |
Ім'я властивості |
Дія |
CheckBox1 |
Propeties |
Caption |
Тільки читання |
Events |
OnClick |
if CheckBox1.Checked = False then ComboBox1.Style:= csDropDown else ComboBox1.Style:= csDropDownList; Властивість Checked в обраного вимикача має значення True, а у вихідному стані - значення False. |
Виділений компонент |
Вікно інспектора об'єктів |
Ім'я властивості |
Дія |
CheckBox1 |
Events |
OnClick |
if CheckBox1.Checked = false then Button1.Enabled := true else Button1.Enabled := false; |
Аналогічно зробити недоступними кнопки Редагувати, Видалити, Зберегти.
3. Завдання
Підказка. Для компонента ComboBox1 в оброблювач події onKeyPress вставити код: if Key = #13 then ...
Підказка. Для компонента ComboBox1 в оброблювач події Change вставити код, що присвоює заголовку панелі значення ComboBox1.Items.Count, а в оброблювач події Click - код, що присвоює заголовку іншої панелі значення ComboBox1.ItemIndex+1, маючи на увазі, що перший термін має індекс 0, другий - 1 і т.д.
Підказка. Для компонента Form в оброблювач події CloseQuerry вставити код, що зберігає змінений список у файлі glostext.txt'.
Підказка. Властивості Sorted компонента ComboBox1 привласнити значення True.
Контрольні запитання