Глобальные объекты в Дельфи. Их свойства и методы. - Delphi, Pascal, ObjectPascal - Программирование
Навигация по сайту
Сайт:

Дополнительно:

Файловый архив:

Каталог статей:

Форум:


Категории раздела
Delphi, Pascal, ObjectPascal [18]
Программирование на Delphi, Pascal, ObjectPascal
C, C++, C# [7]
Программирование на C, C++, C#
ПХП (PHP) [6]
Все что связано с программированием на PHP.
DirectX [0]
Программирование с использованием графического API DirectX
OpenGL [0]
Программирование с использованием графического API OpenGL
Работа с базами данных (БД) [0]
Работа с базами данных MySQL и т.д. Разработка, теории, алгоритмы.
Сетевое программирование [0]
Сетевое программирование, организация сетей.
Программирование игр [0]
Все что связано с программированием игр, организацией их разработки.
Работа с мультимедиа данными [0]
Загрузка, обработка, воспроизведение и все что связано со звуком и видео.
Работа с устройсвами ввода и вывода [0]
Программирование устройств ввода и вывода. Работа с геймпадом, рулем и многим другим.
Программирование HTML 5 игр [0]
Программирование HTML 5 игр, html верстка, JS (JavaScript)
Остальное [0]
Все остальное, что не попадает ни под одну категорию.

Мини-Опрос
Какие языки программирования вы знаете?
Всего ответов: 813

Партнеры сайта
....

 Главная » Статьи » Программирование » Delphi, Pascal, ObjectPascal » Глобальные объекты в Дельфи. Их свойства и методы.

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

00:47
В этой статье я постараюсь рассмотреть существующие в Дельфи глобальные классы. Расскажу о том, как и где их можно применять и что с ними можно делать.

Начнем мы с глобального класса (объекта) 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
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure count(Sender:TObject; var Done:boolean);
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);
begin
if Msg.message=WM_KEYDOWN then begin //нажата любая клавиша
Application.OnMessage:=nil;//сообщение не обрабаьывать
Application.OnIdle:=nil;//Отменить фоновую работу
Handled:=true;//сообщение обработано
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Application.OnIdle:=count;//процедура обработки простоя
Application.OnMessage:=Stop;//процедура обработки сообщений
end;

end.

Еще у объекта TApplication есть ряд полезных свойств. Их названия и смысл приведены в таблице.
Свойство Описание
HelpFile: String Имя файла контекстной помощи, которое используется приложением
Hint: String Строка подсказки
HintHidePause: Integer Время, в течении которого подсказка будет отображаться. По умолчанию 2500 мсек.
HintPause: Integer Время, через которое подсказка появится при перемещении курсора над объектом. По умолчанию 500 мсек.
HintShortPause: Integer Используется для уменьшения мерцания курсора при перемещении мыши над объектом. По умолчанию 50 мсек.
ShowHint: Boolean Разрешает выводить подсказку для всего приложения (по умолчанию). Установив в False, вы запретите вывод подсказок для всего приложения



Следующий глобальный объект, который мы с вами рассмотрим - Screen. Этот объект инкапсулирует свойства дисплея. У него очень много свойств,но мы посмотрим только некоторые из них. Вам, наверно, часто приходилось встречать такую вещь: когда программа выполняет какую-нибудь долгую операцию, курсор над формой изменяет свой вид, а потом, когда операция выполнена, становится нормальным. Чтобы реализовать эту штуку, нам придется воспользоваться свойтсвом Cursor, объекта Screen. Это свойство отвечает за вид курсора над вашим приложением. Тогда общий вид какой-нибудь процедуры может быть таким:

try
Screen.Cursor:=crHourGlass;
{какие-нибудь длинные операции или вычисления}
finally
Screen.Cursor:=crDefault;
end;


Также с помощью объекта Screen можно узнать параметры монитора. Свойства Width и Height указывают на ширину и высоту монитора соответственно. А свойство PixelPerInch - число точек на дюйм.

Как получить список всех шрифтов, о потом занести их в Combobox?? Такой вопрос, наверно, не раз задавали себе начинающие программисты,
делая текстовые редакторы. Все очень просто, достаточно воспользоваться свойством Fonts. Записав эту строку в обработчике OnCreate для
вашей формы, вы получите Combo со списком шрифтов, установленных у вас в системе:

Combobox1.Items:=Screen.Fonts;

Последний глобальный объект, который мы рассмотрим в этой статье будет объект Clipboard, необходимый для работы с буфером обмена. Для того, чтобы начать работу с этим объектом, необходимо в разделе Uses указать модуль Clipbrd. У этого объекта всего три свойства:

Свойство Описание
AsText: string Используется для обмена информацией в текстовом виде.
FormatCount: integer Содержит общее число форматов, которые находятся в буфере обмена в данный момент.
Formats [Index: Integer]: Word Содержит значения идентификаторов формата, Index[0..FormatCount-1].


Например, чтобы при загрузке программы, в Memo помещался текст из буфера обмена, в обработчике формы OnCreate, нужно написать следующее:

Memo1.Text:=Clipboard.AsText;

Для работы с буфером обмена существует ряд методов. Для очистки буфера используется метод Clear, для того, чтобы поместить в буфер изображение (*.BMP или *.WMF) нужно воспользоваться методом Assign (Source: TPersistent).

Ну вот и все, я кратко рассказал вам, о некоторых глобальных объектах в Дельфи.

Удачи в программировании...


Категория: Delphi, Pascal, ObjectPascal | Просмотров: 1666 | Добавил: ДядяВолк (11.08.2010) | Рейтинг: 0.0/0
Источник: http://quadrathell.cn.ua/ | Автор: Михаил Христосенко |
HTML ссылка на материал:
BB ссылка на материал:
Похожие материалы :
Возможно вам будет интересно:
Урок для начинающих по Game Maker v8 (платформенная игра) (1)
Создание Платформенной Игры Copyright 2001 by Mark Overmars (0)
Создание MMORPG игр. (3)
startDrag или как заставить объект двигаться за мышью? (0)
Урок по PaintNET (1)
Полиморфизм, Инкапсуляция и Наследование (0)
Borland Assembler (BASM) уроки для начинающих (урок 7 часть 2) (0)
Создание рикошета пуль от стены (4)
3d RAD . Урок 4 - Подсчет путей и движения (0)
[Статья] Создаем дополнительное оружие (2)
PHP - Базовые понятия (0)
Game Maker. Начало (3)
Массивы (0)
Создание базового движка для игры. Часть 2. Анимация, Столкновения и воспроизведения музыки (0)
Переменные в Actionscript 2.0 (0)
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Мы в социальных сетях

Поиск
Поиск по всему сайту:
Поиск по разделу:

Панель пользователя
Здравствуйте, Гость


Ник:
Пароль:
Запомнить :

Ваш IP: 54.196.74.153

Случайные конструкторы

Случайные движки

Случайные статьи

Статистика
Онлайн всего: 4
Гостей: 4
Пользователей: 0

На сайте были:
Конструктор , Libra

При полном или частичном копировании материалов сайта ссылка на Make-Games.ru обязательна. Make-Games.ru © 2008 - 2017 Хостинг от uWeb
Топ Разработка игр Рейтинг@Mail.ru