Da es mit OnMessage nicht geht, muss man eine Message-Methode schreiben.
Deklariert in der Hauptform:
Delphi-Quellcode:
procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
procedure WMSysCommand(var Msg: TMessage);
begin
if Msg.wParam = SC_SCREENSAVE then
Msg.Result := 1
else
inherited;
end;
Damit sollte es dann hinhauen.