Index: AAPClient/UI/PopupScherm.dfm
===================================================================
diff -u -r241 -r245
--- AAPClient/UI/PopupScherm.dfm	(.../PopupScherm.dfm)	(revision 241)
+++ AAPClient/UI/PopupScherm.dfm	(.../PopupScherm.dfm)	(revision 245)
@@ -11,6 +11,7 @@
   Font.Height = -16
   Font.Name = 'Tahoma'
   Font.Style = []
+  FormStyle = fsStayOnTop
   OldCreateOrder = False
   Position = poDefault
   OnClose = FormClose
Index: AAPClient/UI/PopupScherm.pas
===================================================================
diff -u -r241 -r245
--- AAPClient/UI/PopupScherm.pas	(.../PopupScherm.pas)	(revision 241)
+++ AAPClient/UI/PopupScherm.pas	(.../PopupScherm.pas)	(revision 245)
@@ -50,6 +50,7 @@
 procedure TfmPopupScherm.FormShow(Sender: TObject);
 begin
   fDimmerForm := TfmDimmerform.Create(Self);
+  fDimmerForm.Enabled := false;
   fDimmerForm.Left := Self.Left - 40;
   fDimmerForm.Top := Self.Top - 40;
   fDimmerForm.Show;