डेल्फी में स्क्रीन रिज़ॉल्यूशन परिवर्तन का पता लगाने के लिए कैसे?

Question

सवाल सरल है। डेल्फी में स्क्रीन रिज़ॉल्यूशन परिवर्तन का पता कैसे लगाएं?

Answer 1

आपको केवल WM_DISPLAYCHANGE संदेश का पता लगाने की आवश्यकता है।

उदाहरण के लिए

,

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