DELPHI 怎么加载模版 在窗体内打开网页 网页随窗体的大小而自动改变 窗体随屏幕的大小而自动改变

怎么加载模版在窗体内打开网页网页随窗体的大小而自动改变窗体随屏幕的大小而自动改变VB源代码PrivateSubForm_Load()Me.Width=0.8*VB.Scr... 怎么加载模版 在窗体内打开网页 网页随窗体的大小而自动改变
窗体随屏幕的大小而自动改变

VB 源代码

Private Sub Form_Load()
Me.Width = 0.8 * VB.Screen.Width
Me.Height = 0.8 * VB.Screen.Height WebBrowser1.Navigate "URL"
Skin1.ApplySkin Me.hWnd
End Sub Private Sub Form_Resize()
WebBrowser1.Top = 0
WebBrowser1.Left = 0
WebBrowser1.Height = Me.Height - 80
WebBrowser1.Width = Me.Width - 80
End Sub
展开
 我来答
百度网友09d4ae1
2012-07-07 · TA获得超过267个赞
知道小有建树答主
回答量:169
采纳率:0%
帮助的人:201万
展开全部
Delphi一样的。帮你改成Delphi了,你参考下。

procedure TForm1.FormCreate(Sender: TObject);
begin
self.Width := round(0.8 * screen.Width);
self.Height := round(0.8 * screen.Height);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
WebBrowser1.Top := 0;
WebBrowser1.Left := 0;
WebBrowser1.Height := self.Height - 80;
WebBrowser1.Width := self.Width - 80;
end;
hnyangbin
2012-07-09 · TA获得超过194个赞
知道小有建树答主
回答量:258
采纳率:33%
帮助的人:116万
展开全部
Width := 0.8 * Screen.Width;
Height := 0.8 * Screen.Height ;
WebBrowser1.Navigate:=‘url’;

WebBrowser1.Top := 0;
WebBrowser1.Left := 0;
WebBrowser1.Height := Height - 80;
WebBrowser1.Width ;= Width - 80;
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
dakarai
2012-07-10 · 超过13用户采纳过TA的回答
知道答主
回答量:46
采纳率:0%
帮助的人:30.8万
展开全部
procedure TForm1.FormCreate(Sender: TObject);
begin
self.Width := round(0.8 * screen.Width);
self.Height := round(0.8 * screen.Height);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
WebBrowser1.Top := 0;
WebBrowser1.Left := 0;
WebBrowser1.Height := self.Height - 80;
WebBrowser1.Width := self.Width - 80;
end;
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式