相关疑难解决方法(0)

这是一个后续问题.

我之前的问题:

• 如何将自定义格式剪贴板数据粘贴到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; …

复制和粘贴文本很容易,因为它内置于TMemo中,但它似乎只能处理文本.但在我看来,任何类型的数据都可以表示为字符串.如果我从另一个程序中复制一些任意数据并想将其粘贴到TMemo中,我如何让Delphi接受它作为原始字符串？