📄 howto_get_fenbianlv.htm
字号:
<html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>如何得知当前分辨率</title><meta name=GENERATOR content=Microsoft FrontPage 3.0><meta name=Microsoft Border content=none></head><body style=font-family: 宋体, serif; font-size: 9pt><center><span style=font-family: 宋体, serif; font-size: 12pt><b>如何得知当前分辨率</b></span></center><center><span style=font-family: 宋体, serif; font-size: 9pt>西安 <a href=mailto:delphifan@990.net>梁 明</a></span></center><hr><ul> <li><span style=font-family: 宋体, serif; font-size: 9pt>如果注意到Delphi的TSCREEN全局类，那么要获得系统分辨率就不是问题了。 </span></li> <li><span style=font-family: 宋体, serif; font-size: 9pt><b>下面是源代码：<br> </b></span></li> <li><span style=font-family: 宋体, serif; font-size: 9pt>procedure TForm1.Button1Click(Sender: TObject);<br> var px,py:integer;<br> begin<br> {。。。前面的代码}<br> px:=screen.width;<br> py:=screen.height;<br> caption:=format('当前的分辨率是: %d X %d',[px,py]);<br> {后面的代码。。}<br> end; </span></li></ul><ul> <li><span style=font-family: 宋体, serif; font-size: 9pt><b>窗体As text代码</b></span></li> <li><span style=font-family: 宋体, serif; font-size: 9pt>object mainform: Tmainform<br> Left = 195<br> Top = 103<br> BorderStyle = bsDialog<br> Caption = '测试'<br> ClientHeight = 122<br> ClientWidth = 299<br> Color = clBtnFace<br> Font.Charset = DEFAULT_CHARSET<br> Font.Color = clWindowText<br> Font.Height = -11<br> Font.Name = 'MS Sans Serif'<br> Font.Style = []<br> OldCreateOrder = False<br> PixelsPerInch = 96<br> TextHeight = 13<br> object BitBtn1: TBitBtn<br> Left = 182<br> Top = 18<br> Width = 105<br> Height = 33<br> Caption = '当前分辨率'<br> Default = True<br> ModalResult = 1<br> TabOrder = 0<br> OnClick = Button1Click<br> Glyph.Data = {<br> DE010000424DDE01000000000000760000002800000024000000120000000100<br> 0400000000006801000000000000000000001000000010000000000000000000<br> 80000080000000808000800000008000800080800000C0C0C000808080000000<br> FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333<br> 3333333333333333333333330000333333333333333333333333F33333333333<br> 00003333344333333333333333388F3333333333000033334224333333333333<br> 338338F3333333330000333422224333333333333833338F3333333300003342<br> 222224333333333383333338F3333333000034222A22224333333338F338F333<br> 8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224<br> 33333338F83338F338F33333000033A33333A222433333338333338F338F3333<br> 0000333333333A222433333333333338F338F33300003333333333A222433333<br> 333333338F338F33000033333333333A222433333333333338F338F300003333<br> 33333333A222433333333333338F338F00003333333333333A22433333333333<br> 3338F38F000033333333333333A223333333333333338F830000333333333333<br> 333A333333333333333338330000333333333333333333333333333333333333<br> 0000}<br> NumGlyphs = 2<br> end<br> object BitBtn2: TBitBtn<br> Left = 182<br> Top = 74<br> Width = 105<br> Height = 33<br> TabOrder = 1<br> Kind = bkClose<br> end<br> end</span></li></ul><ul> <li>版主：梁明<br> 日期：1999-03-01<br> E-mail：<a href=mailto:delphifan@990.net>delphifan@990.net</a></li></ul><hr></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -