¿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