Mega Code Archive
Ekrandaki değişiklikleri algılama
<![CDATA[
type
TForm1 = class(TForm)
Button1: TButton;
private
{ Private declarations }
procedure WMDisplayChange(var Message: TMessage);
message WM_DISPLAYCHANGE;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
// Aynı zamanda renk sayısının değişmeside farkedilebilinir.
procedure TForm1.WMDisplayChange(var Message: TMessage);
begin
Showmessage('Şuan ki Çözünürlük: '+inttostr(GetSystemMetrics(SM_CXSCREEN))+' x '+inttostr(GetSystemMetrics(SM_CYSCREEN)));
inherited;
end;
]]>