ВУЗ:
Составители:
Рубрика:
12
6. Выберите в Инспекторе объекта страницу, помеченную «События».
7. Дважды нажмите на событие OnClick. Когда Delphi отобразит метод
обработки события Click, введите оператор Close.
2.2.2 Управляющий элемент - метка
Процесс добавления и настройки управляющего элемента метки (Label) состоит
из следующего:
1. Выберите компонент Label из страницы, помеченной Standard в Палитре
компонентов.
2. Нарисуйте управляющий элемент метки в верхнем левом углу формы и
сделайте его достаточно широким, чтобы в нём писать.
3. Выберите страницу в Инспекторе объекта, помеченную «Свойства».
4. Отредактируйте свойство Caption, заменив заданный по умолчанию заголовок
на [x,y].
5. Отредактируйте свойство Name, заменив заданное по умолчанию имя
управляющего элемента на MouseLbl.
2.2.3 Методы обработки событий формы
Щёлкните в пустое место формы. Для добавления метода обработки события
нажатия кнопки мыши выполните следующие шаги:
1. Выберите в Инспекторе объекта страницу, помеченную «События».
2. Дважды нажмите на событие OnClick. Когда Delphi отобразит метод
обработки события Click, введите оператор:
MessageDlg(‘You clicked on the form’, mtInformation, [mbOK],0);
Чтобы добавить метод обработки события движения мыши, дважды нажмите на
событие OnMouseMove. Когда Delphi отобразит метод обработки события, введите
следующий оператор непосредственно перед ключевым словом begin:
var s, bigStr : string;
Теперь введите следующие операторы сразу после ключевого слова begin:
Str(X,s);
bigStr := ‘[‘ + s + ’,’;
Str (Y,s);
bigStr := bigStr + s + ‘]’;
MouseLbl.Caption := bigStr;
Сохраните модуль в файле UFORM.PAS, а проект - в файле FORM.DPR. Листинг1
показывает исходный текст для программного файла FORM.DPR. Листинг2 показывает
исходный текст для библиотечного модуля UFORM.PAS. Выделенные строки
показывают операторы, которые Вы напечатали сами.
Листинг 1. Исходный текст для программного файла FORM.DPR.
_________________________________________________________________________
1: program Form;
Страницы
- « первая
- ‹ предыдущая
- …
- 10
- 11
- 12
- 13
- 14
- …
- следующая ›
- последняя »