Ok. Ahí te va una aproximación a lo que quieres:
Código Delphi
[-]
type
TForm1 = class(TForm)
private
procedure WMMouseActivate(var Message: TWMMouseActivate); message WM_MOUSEACTIVATE;
end;
implementation
procedure TForm1.WMMouseActivate(var Message: TWMMouseActivate);
begin
Message.Result := MA_NOACTIVATE;
end;
// Saludos