¿Cómo detectar el cambio de resolución de pantalla en Delphi?

winapi screen-resolution

Question

La pregunta es simple. ¿Cómo detectar el cambio de resolución de pantalla en Delphi?

Answer 1

Solo necesita detectar el mensaje WM_DISPLAYCHANGE .

Por ejemplo,

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;

Captura de pantalla de ejemplo http://privat.rejbrand.se/screenreschange.png