代码之家 › 专栏 › 技术社区 › Jamie

将TWebBrowser转换为TWinControl

delphi

Jamie · 技术社区 · 16 年前

var
  WebBrowser: TWebBrowser;
begin
  WebBrowser := TWebBrowser.Create(Self);
  TWinControl(WebBrowser).Parent := Self;
  (WebBrowser as TWinControl).Parent := Self; // fail here
end

TWebBrowser中的Parent是只读IDispatch属性,但为什么第一个强制转换看到TWinControl父属性ok,而第二个则看不到?

1 回复 | 直到 16 年前

Toon Krijthe 16 年前

第一个cast不使用检查,它假定程序员是正确的,然后继续。我认为在这种情况下,编译器会因为相似的命名属性而感到困惑。它甚至可能是一个过于偏执的优化器。

至少

var
  wc : TWinControl;
begin
  wc := (WebBrowser as TWinControl);
  wc.Parent := Self;
end;

作品因此有一种规避。

推荐文章

Some1Else · 函数在Delphi中重新创建TForm

3 年前

MarkoZaaz · Delphi TwebuUpdate E2003未声明的标识符_WIN32_FIND_数据

3 年前

Agmcz · Delphi安卓库。so未安装(AAB)

3 年前

nader · 如何使用delphi在web上提交表单

7 年前

Freddie Bell · Delphi中的位补码。(翻译C#运算符)

7 年前

kwadratens · Delphi中的卡方分布函数代码

7 年前

user9672569 · 如何从确定的点向ListView的第三列添加数据?

7 年前

user9672569 · 如何在完整的位图图像中绘制阴影效果?

7 年前

mmmm · MSBuild(用于Delphi)Make-like功能

7 年前

Den · TabTip的大小和位置。Windows 10上的exe(虚拟键盘)?

7 年前