Головна |
Це не просто тренування, а цікаве розширення і поглиблення ваших знань. Спробуйте виконати всі вправи.
1. Зробіть так, щоб кнопки Yes и No були б доступними тільки після введення імені та натискання клавіші Enter.
Підказка. В Object Inspector властивості Enabled кнопок Yes и No надати значення False, А в процедуру Edit1KeyPressed включити такий код:
Button1.Enabled: = true;
Вutton2.Enabled: = true;
2. Скинутизначень компонентів Edit1, Label2, Label3 для забезпечення можливості повторити діалог.
Підказка. Розмістити на формі ще одну кнопку BitBtn, Перетворити її в Retry. Ввести програмно порожні рядки в властивості зазначених компонентів після натискання кнопки Retry:
Label2.Caption: = '';
Label3.Caption: = '';
Edit1.Text: = '';
3. Процедуру обробки події onKeyPress змініть так, щоб користувач, ввівши своє ім'я, натискав б не Enter, А клавішу Space.
Підказка. код клавіші Space - # 32.
4. Зробіть так, щоб при повторенні діалогу рядок введення була б знову активної.
Підказка. ввести:
ActiveControl: = Edit1.
5. Доповніть процедуру обробки події onKeyPress таким чином, щоб користувач, ввівши своє ім'я, міг би натискати або клавішу Enter, або Escape.
Підказка. код клавіші Escape - # 27.
Репозиторій ОБ'ЄКТІВ І ЕКСПЕРТИ
Then begin | Процедури виклику діалогових вікон | Постановка задачі | Групи радіокнопок - компоненти RadioGroup, RadioButton, GroupBox | Компоненти вибору зі списків - ListBox, ComboBox | Розробка проекту Goroscop | Багаторядкові вікна редагування Memo і Richedi | графічні об'єкти | Канва і пікселі | Тестовий приклад відтворення відеокліпу |