求教:如果在动态创建的TTabsheet对象里放一个TWebBrowser对象?(着急,在线等待,解答给分100) 如题,急等解答,拜托各位大侠! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);var sheet: TTabSheet; wb: TWebBrowser;begin sheet := TTabSheet.Create(Self); sheet.Parent := PageControl1; sheet.PageControl := PageControl1; sheet.Visible := True; wb := TWebBrowser.Create(Self); TWinControl(wb).Parent := sheet; wb.Align := alClient; wb.Visible := True; wb.Navigate('www.google.com');end; uses ShDocVw'procedure TForm1.Button1Click(Sender: TObject);var tabsheet1 : TTabSheet; webbrowser1 : TWebBrowser;begin tabsheet1 := TTabSheet.Create(self); with tabsheet1 do begin parent := pagecontrol1; PageControl := PageControl1; tabvisible := true; end; webbrowser1 := TWebBrowser.Create(self); TWinControl(webbrowser1).parent := tabsheet1; webbrowser1.Align := alclient; webbrowser1.Navigate('www.csdn.net'); webbrowser1.Visible := true;end; 非常谢谢sysu(死树) ,能给我解释下TWinControl(wb).Parent := sheet吗?我不熟悉!谢谢! 因为wb.Parent是IDispatch类型的,要把它强制转换成TWinControl才能设置Parent属性。 谢谢sysu(死树) 和Drate(鸟窝里的虫) ! 怎么修改窗体默认字体 如何将一张图片导入到WORD中呢? 如何进行支持中文的键盘记录 哪儿有f1book的详细帮助 急啊,求教,如何点击按钮,使WORD 执行特定的程序?在线等. 如何制作这样的menu控件。 都请进来!!! 笨懒猫紧急求救? 很奇怪的问题 关于API函数功能实现的问题(急!!!!) 如何把word,excel文件写入数据库,并且可以在程序中打开(调用excel,word打开). select 语句的问题。非常简单~~~~~~~~(在线等)
var
sheet: TTabSheet;
wb: TWebBrowser;
begin
sheet := TTabSheet.Create(Self);
sheet.Parent := PageControl1;
sheet.PageControl := PageControl1;
sheet.Visible := True;
wb := TWebBrowser.Create(Self);
TWinControl(wb).Parent := sheet;
wb.Align := alClient;
wb.Visible := True;
wb.Navigate('www.google.com');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
tabsheet1 : TTabSheet;
webbrowser1 : TWebBrowser;
begin
tabsheet1 := TTabSheet.Create(self);
with tabsheet1 do
begin
parent := pagecontrol1;
PageControl := PageControl1;
tabvisible := true;
end;
webbrowser1 := TWebBrowser.Create(self);
TWinControl(webbrowser1).parent := tabsheet1;
webbrowser1.Align := alclient;
webbrowser1.Navigate('www.csdn.net');
webbrowser1.Visible := true;
end;