winform窗体控件随分辨率的改变而自动调整大小?

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了winform窗体控件随分辨率的改变而自动调整大小?相关的知识,希望对你有一定的参考价值。

参考技术A 主界面打开后读取当前分辨率,根据分辨率不同显示界面不同 参考技术B 将控件大小更改写到winform重绘事件中

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

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

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

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;
参考技术A 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;
参考技术B 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;

以上是关于winform窗体控件随分辨率的改变而自动调整大小?的主要内容,如果未能解决你的问题,请参考以下文章

c# winform groupbox上动态生成的控件,如何让控件随着分辨率变化而自动调整位置和大小

c# winform groupbox上动态生成的控件,如何让控件随着分辨率变化而自动调整位置和大小

Winform 窗体控件随窗体自动(等比例)调整大小

VB中如何设置窗体内控件大小随窗体大小改变而改变?

winform主窗体被子窗体影响而缩小?

如何实现Winform窗体应用程序的字体和窗体大小不跟随分辨率改变