在 Delphi IDE 中获取对对象的引用

Question

这是我对这个问题的回答：

Can I change the display format for strings in the watch list?

事实证明，在 D7 和 XE3 之间的某个时刻，IDE 的 Watch Window 的实现从使用 TListView 更改为 TVirtualStringTree。

虽然我通过忽略 VST 并从剪贴板获取监视值发布了对 XE4 的答案的更新，但如果可以的话，我仍然希望能够从 VST 获取监视值。我想我知道该怎么做 一旦我参考了 VST，但问题是我尝试获取 VST 失败了。

以下是我在自定义包中使用的代码的 MCVE。希望它的作用是不言自明的。问题是块中的代码

  if WatchWindow.Components[i] is TVirtualStringTree then begin
    [...]
  end;

从不执行，尽管在 Memo1 中出现了类名“TVirtualStringTree”。显然，具有该类名的组件未能通过“是”测试。我猜测原因是编译到 IDE 中的 TVirtualTreeView 与我使用的版本不同，v.5.3.0，这是我能找到的最接近 XE4 的前身。

所以，我的问题是，这是可能的解释，我能做些什么吗？我怀疑是否有人可以从一顶帽子中蓬勃发展用于 XE4 的 TVirtualStringTree 版本，这可能会解决我的问题。

type
  TOtaMenuForm = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    WatchWindow : TForm;
    VST : TVirtualStringTree;
  end;

procedure TOtaMenuForm.FormCreate(Sender: TObject);
var
  i : Integer;
  S : String;
begin

  WatchWindow := Nil;
  VST := Nil;

  // Iterate the IDE's forms to find the Watch Window
  for i := 0 to Screen.FormCount - 1 do begin
    S := Screen.Forms[i].Name;
    if CompareText(S, 'WatchWindow') = 0 then begin
      WatchWindow := Screen.Forms[i];
      Break;
    end;
  end;

  Assert(WatchWindow <> Nil);

  if WatchWindow <> Nil then begin
    Memo1.Lines.Add('Looking for VST');
    for i := 0 to WatchWindow.ComponentCount - 1 do begin
      Memo1.Lines.Add(IntToStr(i) + ':' + WatchWindow.Components[i].ClassName);
      if WatchWindow.Components[i] is TVirtualStringTree then begin
         VST := TVirtualStringTree(WatchWindow.Components[i]);
         Memo1.Lines.Add('found VST');
         Break;
      end;
    end;
    if VST = Nil then
      Memo1.Lines.Add('VST not found');
  end;
end;

顺便说一句，我意识到依赖于 IDE 实现细节的解决方案可能很脆弱，但这只是为了消遣（我喜欢从一个组件中获取字符串数据的挑战，该组件会竭尽全力避免存储任何）。

Answer 1

也许你可以尝试通过 RTTI 方法仅使用嵌入到 IDE TVirtualStringTree 实现中的已发布属性来做你想做的事？