Реферат: Глобальные объекты в Дельфи Их свойства и методы

В этой работе я постараюсь рассмотреть существующие в Дельфи глобальные классы. Расскажу о том, как и где их можно применять и что с ними можно делать. Начнем мы с глобального класса (объекта) TApplication. Предлагаю вам ознакомиться с приведенной таблицей событий этого объекта:

События	Возникает
OnActionExecute: TActionEvent	Происходит при вызове метода Execute перед обработкой списка событий.
OnActionUpdate: TNotifyEvent	Происходит при вызове метода Update;
OnActivate: TNotifyEvent	При переходе приложения в активное состояние.
OnDeactivate:TNotifyEvent	При переключении на другое приложение Windows
OnException: TExceptionEvent	При возникновении исключительной ситуации
OnHelp: THelpEvent	При запросе приложением справочной системы.
OnHint: TNotifyEvent	При перемещении мыши над компонентом, у которого есть строка подсказки (Hint)
OnIdle: TNotifyEvent	При отсутствии работы у приложения
OnMessage: TMessageEvent	При получении сообщения Windows
OnMinimize: TNotifyEvent	При минимизации приложения
OnRestore: TNotifyEvent	При восстановлении приложения в нормальный размер
OnShowHint: TShowHintEvent	При выводе строки подсказки (Hint)

Для примера хочу предложить вам пример программы, которая при простое увеличивает счетчик на единицу, а при нажатии клавиши перестает это делать. Поставьте на форму одну кнопку и метку. Свойство Caption метки должно быть равно '0';

unit Unit1;

interface

uses

Возможно вы искали - Реферат: Логические задачи на языке программирования Prolog

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Похожий материал - Курсовая работа: Конвертер программы с подмножества языка Си в Паскаль с использованием LL1 метода синтаксическог

Label1: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

procedure count(Sender:TObject; var Done:boolean);

Очень интересно - Контрольная работа: Boot Record команды DOS Norton Commander Windows

procedure stop(var Msg:TMsg; var Handled:boolean);

public

{ Public declarations }

end;

var

Вам будет интересно - Дипломная работа: Машинная память

Form1: TForm1;

implementation

{$R *.DFM}

procedure Tform1.Count;

begin

Похожий материал - Доклад: Компьютерные определители

label1.Caption:=IntToStr(StrToInt(label1.caption)+1);//увеличиваемсчетчик

Done:=false;

end;

procedure TForm1.stop(var Msg:Tmsg; var Handled:boolean);