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

问题很简单如何检测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