如何检测Delphi中的屏幕分辨率变化？

发布时间：2020-12-15 04:27:23 所属栏目：大数据来源：网络整理

导读：问题很简单如何检测Delphi中的屏幕分辨率变化？解决方法您只需要检测到 WM_DISPLAYCHANGE 消息. 例如, TForm1 = class(TForm)privateprotected procedure WMDisplayChange(var Message: TWMDisplayChange); message WM_DISPLAYCHANGE; { Private declarati

问题很简单如何检测Delphi中的屏幕分辨率变化？

解决方法

您只需要检测到 WM_DISPLAYCHANGE消息.

例如,

TForm1 = class(TForm)
private
protected
  procedure WMDisplayChange(var Message: TWMDisplayChange);
    message WM_DISPLAYCHANGE;
  { Private declarations }

public
  { Public declarations }
end;

...

procedure TForm1.WMDisplayChange(var Message: TWMDisplayChange);
begin
  ShowMessageFmt('The screen resolution has changed to %d×%d×%d.',[Message.Width,Message.Height,Message.BitsPerPixel]);
end;

Sample screenshot http://privat.rejbrand.se/screenreschange.png

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!