Come rilevare la modifica della risoluzione dello schermo in Delphi?

La domanda è semplice. Come rilevare la modifica della risoluzione dello schermo in Delphi?Come rilevare la modifica della risoluzione dello schermo in Delphi?

fonte

2013-02-08 Dmitry

apparire un messaggio di avere qualcosa a che fare con metriche di sistema. Per esempio. WM_SYSTEMMETRICSCHANGE –

possibile duplicato di [Come riconoscere quando il numero, la posizione o la risoluzione dei monitor è cambiato?] (Http://stackoverflow.com/questions/11004051/how-to-recognize-when-number-position-or-resolution -di-monitor-ha-cambiato) –

@David - Quello è ora contrassegnato come duplicato di questo (chiedo cosa succede se recidono ..). –

È necessario solo rilevare il messaggio WM_DISPLAYCHANGE.

Per esempio,

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

fonte

2013-02-08 12:29:59

Come rilevare la modifica della risoluzione dello schermo in Delphi?

risposta

Problemi correlati