БОЛЬШОЙ FAQ ПО DELPHI



Определить, что изменились настройки экрана


 type
   {...}
   private
     procedure WMDisplayChange(var msg: TMessage);
       message WM_DISPLAYCHANGE;
   public
   {...}
   end;
 end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.DFM}
 
 procedure TForm1.WMDisplayChange(var msg: TMessage);
 begin
   ShowMessage('Display settings changed!');
   inherited;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ