Screen获取桌面分辨率大小

最新推荐文章于 2021-01-27 23:51:52 发布

weixin_30571465

最新推荐文章于 2021-01-27 23:51:52 发布

阅读量276

点赞数

文章标签：游戏

原文链接：http://www.cnblogs.com/xe2011/archive/2012/06/02/2531624.html

版权

//Screen获取桌面分辨率大小 
{
Screen.Width 宽
Screen.Height 高
这样可以根据显示器的分辨率信息设置窗体大小及位置
}
procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.Memo1.Lines.Add('DeskTopResolution');
  Self.Memo1.Lines.Add('Width :'+Inttostr(Screen.Width));
  Self.Memo1.Lines.Add('Height :'+Inttostr(Screen.Height));
end;



//方法2
//Label1
//Label2

procedure TForm1.FormCreate(Sender: TObject);
var
  x:longint;
  a:string;
begin
  x := GetSystemMetrics(SM_CXSCREEN);

  Str(x,a);
  Label1.Caption := 'Height:' + a;
  x := GetSystemMetrics(SM_CYSCREEN);

  Str(x,a);
  Label2.Caption := 'Width:' + a;

end;