найти назву потрібного події і клацнути два рази в текстовому вікні навпроти нього. При цьому з'явиться заготовка процедури, між begin і end ми пишемо необхідні оператори. p align="justify"> У обробнику події OnMouseDown кожного з В«очейВ» помістимо код:. Top: = shape1.Top +10;// елемент переміститься на 10 одиниць вниз по вертикалі - повернеться на місце
Ця подія виникає, коли користувач натиснув ліву клавішу миші на об'єкті.
У обробнику події OnMouseUp напишемо:. Top: = shape1.Top-10;// елемент переміститься на 10 одиниць вгору по вертикалі
Ця подія виникає, коли користувач відпустив ліву клавішу миші.
!! Не забудьте поміняти номери компонентів shape2, shape3.
7. Для нетямущих зробимо підказку. p align="justify"> Властивості ShowHint кожного з компонентів Shape (В«очі світлофораВ») встановимо значення True. У властивості Hint напишемо сам текст підказки, наприклад, В«Натисни мене!В» Або будь-яке інше, відповідне до даного випадку. br/>
. Ускладнюємо наше застосування. Зробимо так, щоб при запуску програми на екрані з'являлося вікно з запитом пароля. p align="justify"> Створіть нову форму, натиснувши на кнопку Нова форма. p align="justify"> Для Form1 (нашої першої, головної форми, не забудьте клацнути по ній, вибравши як об'єкта ) в обробнику події OnShow (При появі) напишемо:
procedure TForm1.FormShow (Sender: TObject);
form2.Showmodal
end;
Це означає, що при появі вікна-форми1 на екран вискочить вікно-форма-2. p align="justify"> Задамо заголовок формі В«Зміна пароляВ». Подсвойству biSystemMenu властивості BorderIcons форми (подсвойства з'являються, коли натиснеш на плюсик) задамо значення false. Це означає, що ніяких кнопок у заголовку вікна не буде. p align="justify"> Додамо в список змінних модуля Unit2 змінну логічного типу. Для цього необхідно натиснути на кнопку Показати список модулів (Ctrl + F12) і вибрати в списку потрібний. <В
Знайдемо в модулі блок опису глобальних змінних і додамо рядок, виділений жирним.
var: TForm2;
f: boolean;
У обробнику події OnCreate form2 запишемо код:
procedure TForm2.FormCreate (Sender: TObject);
f: = false
end;
При створенні форми мінлива f ініціалізується з початковим значенням false.
Для обробника події OnClose: TForm2.FormClose (Sender: TObject; var Action: TCloseAction); f = false then form1.close;;
Таким чином, якщо якийсь розумник натисне Alt + F4 для закриття вікн...
