О чём не пишут в книгах по Delphi

 procedure DefaultHandler(var Msg); override;

 published

property Color: TColor read FColor write SetColor default clWindowText;

 property StartX: Integer index 0 read FCoords[0] write SetCoord default 10;

 property StartY: Integer index 1 read FCoords[1] write SetCoord default 10;

property EndX: Integer index 2 reed FCoords[2] write SetCoord default 50;

 property EndY: Integer index 3 read FCoords[3] write SetCoord default 50;

 end;

…

constructor TLine.Create(AOwner: TComponent);

begin

 if not Assigned(AOwner) then raise EWrongOwner.Create(

'Должен быть назначен владелец компонента TLine');

 if not (AOwner is TWinControl) then raise EWrongOwner.Create(

'Владелец компонента TLine должен быть наследником TWinControl');

 FWinOwner:= AOwner as TWinControl;

 inherited;

 FCoords[0]:= 10;

 FCoords[1]:= 10;

 FCoords[2]:= 50;

 FCoords[3]:= 50;

 FColor:= clWindowText;

 FStartMoving:= False;

 FEndMoving:= False;

 FDrawLine:= True;

 // Запоминаем старый обработчик сообщений владельца и

 // назначаем новый.

 FOldProc:= FWinOwner.WindowProc;

 FWinOwner.WindowProc:= HookOwnerMessage;

 FWinOwner.Refresh;

end;

destructor TLine.Destroy;

begin

 // Восстанавливаем старый обработчик сообщений владельца.

 FWinOwner.WindowProc:= FOldProc;

 FWinOwner.Refresh;

 inherited;

end;

procedure TLine.HookOwnerMessage(var Msg: TMessage);

begin

 // Единственное, что делает перехватчик сообщений -

 // передает их методу Dispatch. Было бы оптимальнее

 // назначить обработчиком сообщений сам метод Dispatch,

 // но формально он имеет прототип, несовместимый с

 // типом TWndMethod, поэтому компилятор не разрешает

 // подобное присваивание. Фактически же Dispatch

 // совместим с TWndMethod, поэтому, используя хакерские

 // методы, можно было бы назначить обработчиком его и

 // обойтись без метода HookOwnerMessage. Но хакерские

 // методы — вещь небезопасная, они допустимы только

 // тогда, когда других средств решения задачи нет.

 Dispatch(Msg);

end;

procedure TLine.DefaultHandler(var Msg);

begin

 FOldProc(TMessage(Msg));

end;

Собственно рисование линии на поверхности владельца обеспечивает метод WMPaint (листинг 1.25).

Листинг 1.25. Метод WMPaint

procedure TLine.WMPaint(var Msg: TWMPaint);

var

 NeedDC: Boolean;

 PS: TPaintStruct;

 Pen: HPEN;

begin

 if FDrawLine then

 begin

// Проверка, был ли DC получен предыдущим обработчиком

 NeedDC:= Msg.DC = 0;

 if NeedDC then Msg.DC:= BeginPaint(FWinOwner.Handle, PS);

 inherited;

Pen:= CreatePen(PS_SOLID, 1, ColorToRGB(FColor));

 SelectObject(Msg.DC, Pen);

MoveToEx(Msg.DC, FCoords[0], FCoords[1], nil);

 LineTo(Msg.DC, FCoords[2], FCoords[3]);

 SelectObject(Msg.DC, GetStockObject(BLACK_PEN));

 DeleteObject(Pen);