OnShow для Form1.
procedure TForm1.FormShow (Sender: TObject);
edit1.SetFocus;
end;
Аналогічним чином, зробимо так, щоб при натисканні кнопок В«=В» і В«СВ», а також кнопок математичних операцій, фокус передавався вікна введення.
Виконати самостійно
(створення простенького калькулятора):
1. Налаштувати параметри форми таким чином, щоб розміри вікна не можна було змінити і кнопка "Розгорнути/Maximize /В» була відсутня.
2. Додати кнопку В«,В» для введення роздільник між цілою і дробовою частиною числа. Для цього в обробник OnClick кнопки додамо:
if pos (',', edit1.Text) <> 0 then exit// якщо символ В«,В» у рядку вже є
else edit1.Text: = edit1.Text + ','
3. Додати кнопку В«+/-В» для зміни знаку числа на протилежний.
procedure TForm1.BitBtn2Click (Sender: TObject); s: string;: = Edit1.Text; s [1] = '-' then delete (s, 1,1) else ('-' , s, 1);. Text: = s;
end;
4. Заборонити введення з клавіатури в текстове вікно будь-яких символів крім цифрових і В«-В» (мінус), В«,В» (кома) - дивимося в конспект лекцій.
5. Створити кнопки для наступних математичних операцій:
В· зведення в ступінь r: = exp (p * ln (i));
В· цілочисельне ділення (div) і залишок від ділення (mod) - для перетворення типів використовувати функцію round;
В· зведення в квадрат (sqr);
В· витяг квадратного кореня (sqrt);
В· обчислення натурального і десяткового логарифма;
В· обчислення sin-са, cos-са і tg-са аргументу;
В· обчислення експоненти (e ^ x);
В· для обчислення 1/x;
В· введення числа p ;
В· для знаходження факторіала числа.
Результатом виконання даної лабораторної роботи є створений згідно із завданням програмний продукт. Виконане завдання повинне бути пред'явлено викладачеві в електронному вигляді. У ході захисту лабораторної роботи студент повинен продемонструвати свої навички роботи з вивченими компонентами та методами проектування інтерфейсу користувача. br/>
Лабораторна робота № 6. Створення елементів інтерфейсу найпростішого графічного редактора
Мета: Вивчення компонентів ColorGrid, SpinEdit, RadioGroup, ListBox, ColorDialog.
Короткі теоретичні відомості.
ColorGrid - приклад компонента, використовуваного для створення таблиці кольорів, в якій користувач вибирає необхідний колір. Компонент візуальний. Властивість GridOrdering визначає зовнішній вигляд сітки (кількість рядків і стовпців). Властивість ForegroundColor визначає колір, вибраний користувачем лівою клавішою, BackgroundColor - правою. - Вікно редагування в комбінації з кнопкою-лічильником. Властивості MinValue і МахValue компонента задають відповідно мінімальне і максимальне значення чисел, властивість Increment задає прирощення числа при кожному натисканні на кнопку. Властивість Value визначає поточне значення числа. Це властивість можна читати, щоб дізнатися, яке число задав користувач. p align="justify"> Радіокнопки утворюють групи взаємопов'язаних індикаторів, з яких зазвичай може бути вибраний тільки один. Компонент RadioGroup - панель групи радіокнопок, яка може містити регулярно розташовані стовпцями і рядками радиокнопки. Напис в лівому верхньому куті панелі визначається властивістю Caption. А написи кнопок і їх кількість визначаються властивістю Items, що має тип TStrings. Клацнувши на кнопці з трьома крапками близько цієї властивості у вікні Інспектора Об'єктів, ви потрапите в редактор списків рядків. У ньому ви можете занести написи, які хочете бачити біля кнопок, по одній у рядку. Скільки рядків ви запишете - стільки й буде кнопок. p align="justify"> Визначити, яку з кнопок вибрав користувач, можна по властивості ItemIndex, яке показує індекс вибраної кнопки. Індекси, як завжди в Delphi, починаються з 0. Типово ItemIn...