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

  procedure HookOwnerMessage(var Msg: Message);

 public

  constructor Create(AOwner: TComponent); override;

  destructor Destroy; override;

  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);