Глобальні об'єкти в Дельфи. Їх властивості і методи.
Михайло Хрістосенко
В
цій роботі я спробую розглянути існуючі в Дельфи глобальні класи.
Розкажу про те, як і де їх можна застосовувати і що з ними можна робити. Почнемо
ми з глобального класу (об'єкта) 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).
Ну
от і все, я коротко вам розповів про деякі глобальних об'єктах в Дельфи.
Список літератури
Для
підготовки даної роботи були використані матеріали з сайту http://bestcode.org/
