Как мне предоставить внутреннее приватное невизуальное окно (дескриптор) невизуального компонента VCL?

Question

Это дополнительный вопрос.

Мои предыдущие вопросы:

• Как вставить данные буфера обмена нестандартного формата в TMemo?
• Присоединение к цепочке буфера обмена Лучшие практики?

Моя проблема:

TComponent нене иметь дескриптор окна, как TWinControl.Я не хочу полагаться на внешний.

Это фрагмент моего пользовательского компонента

type
  TMyClipBoardListener = class(TComponent)
  private
    FInnerWindowHandle: HWnd;
    FNextHWnd:  HWnd;
    //...
  protected
    procedure Loaded; override;
    procedure WndProc(var Msg: TMessage); // <<< This is my wouldbe Window to handle messages
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    // ...
  published
    // ...
  end;

Отрывок реализации моего пользовательского компонента

constructor TMyClipBoardListener .Create(AOwner: TComponent);
begin
  inherited;
  //
  FInnerWindowHandle := ...; // <<< What to do here ? Should I pass it to a function/procedure I missed?
end;

destructor TMyClipBoardListener .Destroy;
begin
  if not(csDesigning in ComponentState) then
  begin
    ChangeClipboardChain(FInnerWindowHandle, FNextHWnd);
  end;
  //
  // <<< Are there some cleaning code related to FInnerWindowHandle to implement here or elsewhereCreates a window that implements a specified window procedure. ?
  //
  inherited;
end;

procedure TMyClipBoardListener.Loaded;
begin
  inherited;
  //
  if not(csDesigning in ComponentState) then
  begin
    FNextHWnd:= SetClipboardViewer(FInnerWindowHandle);
  end;
end;

procedure TMyClipBoardListener.WndProc(var Msg: TMessage);
begin
  with Msg do
  begin
    // Message to handle : WM_CHANGECBCHAIN and WM_DRAWCLIPBOARD
    // ... 
    else
      Result := DefWindowProc(FInnerWindowHandle, Msg, WParam, LParam); // <<< Is this the right way to do default handling properly?
  end;
end;

Мой вопрос:

Как получить для моего пользовательского компонента внутреннее окно, реализующее процедуру встроенного окна?

Answer 1

Звоните AllocateHwnd из Классы единицы (не Формы ).

FInnerWindowHandle := AllocateHwnd(WndProc);

Когда вы закончите, позвонитеDeallocateHwnd.