// not working for me...Code: Pascal [Select][+][-]unit unit1;{$mode objfpc}{$H+} interface uses Windows, Classes, SysUtils, Forms, Dialogs; type TForm1 = class(TForm) private procedure WMDisplayChange(var msg: TMessage); message WM_DISPLAYCHANGE; end; var Form1: TForm1; implementation {$R *.lfm} procedure TForm1.WMDisplayChange(var msg: TMessage);begin showmessage('Display Changed');end; end.WndProc (standard way) isn't working for me either...
@taazzThanks for the info...What do you mean? Something like this:Code: Pascal [Select][+][-]Procedure TForm1.FormCreate(Sender: TObject); Begin oldProc:= Windows.WndProc(GetWindowLongPtr(Handle, GWL_WNDPROC)); SetWindowLongPtr(Handle, GWL_WNDPROC, PtrInt(@WndCallback)); End;