А. Григорьев - О чём не пишут в книгах по Delphi

(Text + 103)^ := '.';

(Text + 102)^ := '.';

(Text + 101)^ := '.';

(Text + 100)^ := ' ';

end;

GetClassName(Wnd, ClassName, ClassNameLen);

if Text^ = #0 then NodeName := 'Без названия (' + ClassName + ') '

else NodeName := Text + ' (' + ClassName + ');

Node := FormWindows.TreeWindows.Items.AddChild(ParentNode, NodeName);

Node.Data := Pointer(Wnd);

EnumChildWindows(Wnd, @EnumWindowsProc, LParam(Node));

finally

// Вручную освобождаем память, выделенную для буфера

StrDispose(Text);

end;

end;

Второй вариант функции EnumWindowsProcотличается от первого только тем что для организации буфера для получения имени окна вместо переменной типа stringиспользуется переменная типа PChar. Соответственно, все манипуляции с динамической памятью теперь выполняются вручную, а просто отсечь конец слишком длинной строки и прибавить к результату другую строку (многоточие) мы не можем, приходится модифицировать строку посимвольно. Тем не менее видно, что и с помощью типа PCharзадача создания буфера для строки, возвращаемой API-функцией, достаточно легко решается.

Пример Line представляет собой невизуальный компонент TLine, который перехватывает оконные сообщения своего владельца (владельца в терминах VCL, разумеется, раз речь идет о неоконном компоненте). Компонент TLineрисует на своем владельце линию из точки ( StartX, StartY) в точку ( EndX, EndY) цветом Color. Пользователь может перемещать концы линии мышью. Достаточно разместить компонент TLineна форме, и на ней появится линия, которую пользователь может перемещать как во время проектирования формы, так и во время выполнения программы. Можно также разместить на форме, например, панель, и сделать ее владельцем компонента TLine— тогда линия будет рисоваться на панели. Но это можно сделать только во время исполнения программы, потому что владельцем всех компонентов, созданных во время проектирования формы, становится сама форма. Чтобы установить компонент, нужно выполнить следующие действия:

1. Переписать с компакт-диска файлы Line.pas и Line.dcr в папку, где вы храните компоненты. Если такой папки еще нет, самое время создать ее. Где именно она будет расположена, значения не имеет, выбирайте любое удобное для вас место. Главное — это прописать эту папку в путях, где Delphi ищет компоненты. Чтобы сделать это в Delphi 7 и более ранних версиях, откройте меню Tools\Environment Options, в появившемся диалоговом окне выберите закладку Libraryи добавьте свою папку в поле Library path. В BDS 2006 и выше откройте меню Tools\Options, в появившемся диалоговом окне в дереве в левой части выберите пункт Environment Options\Delphi Options\Library — Win32и добавьте папку в поле Library path.

2. Создайте новый пакет (меню File\New\Other, в открывшемся окне выбрать Package). После этого в Delphi 7 и более ранних версиях откроется небольшое окно пакета. В BDS 2006 и более поздних версиях окно не откроется, но пакет появится в группе проектов (по умолчанию это окно Project Managerв правом верхнем углу главного окна). Сохраните пакет в ту же папку, где находится Line.pas, под любым именем, кроме Line (иначе будет конфликт имен).

3. Добавьте в пакет файл Line.pas. В BDS 2006 для этого необходимо с помощью правой кнопки мыши вызвать контекстное меню пакета в окне Project Managerи выбрать там пункт Add. В Delphi 7 и более ранних версиях в окне пакета нужно нажать кнопку Add.

4. Установите компонент. В BDS 2006 и выше для этого следует выбрать пункт Installв контекстном меню проекта, а в Delphi 7 и более ранних версиях — нажать кнопку Installв окне пакета. После этого в палитре компонентов у вас появится вкладка Delphi Kingdom Samples, a в ней — компонент TLine.

Если вы не хотите помещать компонент TLineв палитру компонентов (или у вас Turbo Delphi Explorer, и вы просто не имеете такой возможности), можно воспользоваться проектом LineSample, который во время выполнения создаёт два экземпляра TLine, владельцем одного из которых является форма, другого — панель.

Перехват сообщения владельца осуществляется путем изменения его свойства WindowProc— записи в него указателя на свой обработчик сообщений. Здесь можно применить один хитрый прием. Компонент TLineне имеет своей оконной процедуры, т.к., будучи прямым наследником класса TComponent, окном не является. Но метод Dispatchу него есть, поскольку он объявлен в классе TObject. В классе TComponentи в его предках метод Dispatchникогда не вызывается. Если мы напишем обработчик сообщений таким образом, что он будет передавать сообщения методу Dispatch, то сможем в нашем компоненте создавать свои методы для обработки сообщений, в которые метод Dispatchпри необходимости будет передавать сообщения для обработки. Необработанные сообщения при этом будут передаваться в метод DefaultHandler, который у класса TComponentничего не делает. Если мы перекроем DefaultHandlerтак, чтобы он вызывал оригинальный обработчик сообщений родителя, то все необработанные сообщения пойдут туда. Более того, вызов inheritedиз методов-обработчиков сообщений тоже будет приводить к вызову оригинального обработчика родителя, т.к. в данном случае inheritedпри отсутствии унаследованного обработчика приводит к вызову DefaultHandler. В листинге 1.24 показано объявление класса TLineи код его методов, относящихся к перехвату сообщений.

type

TLine = class(TComponent)

private

// FCoords хранит координаты линии. Начало линии

// находится в точке (FCoords[0], FCoords[1]),

// конец - в (FCoords[2], FCoords[3]).

FCoords:array[0..3] of Integer;

// Конструктор класса написан так, что владельцем TLine

// может стать только TWinControl или его наследник.

// Но свойство Owner имеет тип TComponent, поэтому при

// использовании свойств и методов класса TWinControl

// Owner придется каждый раз приводить к типу

// TWinControl. Чтобы избежать приведений типа,

// используется поле FWinOwner. Оно указывает на тот же

// объект, что и Owner, но имеет тип TWinControl.

FWinOwner: TWinControl;

// Здесь хранится адрес обработчика сообщений, бывший до

// перехвата.

FOldProc: TWndMethod;

// Цвет линии

FColor: TColor;

// Состояние линии. Если FStartMoving = True, в данный

// момент пользователь перемещает начало линии, если

// FEndMoving = True - ее конец.

FStartMoving, FEndMoving: Boolean;

// Если FDrawLine = False, линия не рисуется. Это

// используется, когда нужно стереть линию.

FDrawLine: Boolean;

procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;