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

问题描述

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

解决方案

您只需检测消息。

例如，

  TForm1 = class（TForm） 
 private 
 protected 
 procedure WMDisplayChange（var Message：TWMDisplayChange）; 
消息WM_DISPLAYCHANGE; 
 {私人声明} 
 
 public 
 {公开声明} 
 end; 
 
 ... 
 
程序TForm1.WMDisplayChange（var Message：TWMDisplayChange）; 
 begin 
 ShowMessageFmt（'屏幕分辨率已更改为％d×％d×％d。'，
 [Message.Width，Message.Height，Message.BitsPerPixel]）; 
结束
  

The question is simple. How to detect screen resolution change in Delphi ?

解决方案

You only need to detect the WM_DISPLAYCHANGE message.

For instance,

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

这篇关于如何检测Delphi中的屏幕分辨率变化？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！