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