Làm thế nào để phát hiện sự thay đổi độ phân giải màn hình trong Delphi?

Question

Câu hỏi rất đơn giản. Làm thế nào để phát hiện sự thay đổi độ phân giải màn hình trong Delphi?

Answer 1

Bạn chỉ cần phát hiện thông báo WM_DISPLAYCHANGE.

Ví dụ,

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