求教:如果在动态创建的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(鸟窝里的虫) ! 帮忙找一下错误,有分数的! 如何设置一个动态创建的TWebBrowser组件的parent 能否简叙一下控件的开发过程,或给一个简单的例了,谢谢。 想在应用程序下面加入一行动态的文字,请高手指点?? 文本数据中一条数据分为多行时不能正常恢复的问题!急急急!十万和急! 我想和大家讨论一下关于拖放问题 请问哪个哥哥姐姐告诉我一些关于Delphi的网站!来者有分! 为这个问题我已经………… 哪位网友可以帮助我? 关于数据的备份? 如何把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;