Zachycení změny rozlišení

Poslední dnešní příklad souvisí s předchozím odstavcem. Naučíme se detekovat, zda nedošlo ke změně rozlišení. Pokud ano, může na to naše aplikace eventuelně nějak zareagovat, pokud bude potřeba a pokud to povaha naší aplikace vyžaduje. Jak jinak, opět se bude jednat o zachycení zprávy systému, konkrétně o WM_DISPLAYCHANGE. Zde je tedy kód:
.
.
.
public
{ Public declarations }
procedure WMDisplayChange(var Msg : TWMDisplayChange); message WM_DISPLAYCHANGE;
end;
.
.
.

procedure TForm1.WMDisplayChange(var Msg: TWMDisplayChange);
begin
inherited;
ShowMessage('Došlo ke změně rozlišení');
end;