Стр. 78 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
78
Запустим проект, затем нажмем на кнопку Button1 . Появится сообщение
(рис. 4.17). Почитав его, нажмем кнопку OK. За появление этого сообщения от-
вечает процедура ShowMessage('Мы так и думали!!!') , которая выводит на эк-
ран свое собственное диалоговое окно – сообщение, не связанное с окном
Form1.
Рис. 4.17 Рис. 4.18
19. Создадим процедуру Button2MouseMove для обработки события
OnMouseMove. Это событие возникает при движении мыши по кнопке Button2
(рис. 4.18).
В листинге 4.2 приведены результаты всех наших действий.
Листинг 4.2
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia-
logs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;