На головну

вправи

  1. III. Вправи і КЗ, що формують регуляційних-комунікативні вміння на прагматико-репрезентує стадії.
  2. вільні вправи
  3. Лікарський контроль як умова допуску до занять фізичними вправами і спортом
  4. Виконайте вправи.
  5. Виконайте вправи.
  6. Виконайте вправи.
  7. Глава 7. ЗАВДАННЯ І ВПРАВИ

1. Створити форму з п'ятьма полями редагування і п'ятьма відповідними написами, які пояснюють, який вид перевірки здійснює відповідний компонент Edit. Форма також містить кнопку для перевірки вмісту першого поля редагування.

2. Записати наступний код для події OnClick кнопки:

Var

Number, Code: Integer;

Begin

if Edit1.Text <> ''

Then begin

Val (Edit1.Text, Number, Code);

if Code <> 0

Then begin

Edit1.SetFocus;

MessageDlg ( 'Not a number in the

first edit ', mtError, [mbOK], 0);

End;

End;

End;

3. Для події OnExit компонента Edit2 записати наступний код

Var

Number, Code: Integer;

Begin

if (Sender as TEdit) .Text <> ''

Then begin

Val ((Sender as TEdit) .Text, Number, Code);

if Code <> 0

Then begin

(Sender as TEdit) .SetFocus;

MessageDlg ( 'The edit field number' +

IntToStr ((Sender as TEdit) .Tag) + 'does not

have a valid number ', mtError, [mbOK], 0);

End;

End;

End;

Цей код можна використовувати для будь-якого компонента TEdit. Текст повідомлення про помилку можете написати свій.

4. Третій компонент Edit виконує аналогічну перевірку при кожній зміні його вмісту (використовуючи подія OnChange).

5. Компонент Edit має подія OnKeyPress, Яке відповідає натискання клавіші користувачем. Записати код для цієї події компонента Edit4:

Begin

if not (key in [ '0' .. '9', # 8]}



Попередня   43   44   45   46   47   48   49   50   51   52   53   54   55   56   57   58   Наступна

Канва і пікселі | Тестовий приклад відтворення відеокліпу | Then begin | вправи | Сторінки сховища об'єктів | Application Expert | Класи і приховування інформації | Класи і модулі | Для отримання відомостей про на етапі виконання | Завдання для самостійної роботи |

© um.co.ua - учбові матеріали та реферати