Index: AAPClient/UI/DrieKnoppenScherm.pas =================================================================== diff -u -r235 -r240 --- AAPClient/UI/DrieKnoppenScherm.pas (.../DrieKnoppenScherm.pas) (revision 235) +++ AAPClient/UI/DrieKnoppenScherm.pas (.../DrieKnoppenScherm.pas) (revision 240) @@ -109,23 +109,20 @@ begin if btnLinksOnder.Action<>nil then begin btnLinksOnder.Action.Execute; - CloseModal; end; end; procedure TfmDrieKnoppenScherm.imgCentraalOnderClick(Sender: TObject); begin if btnCentraalOnder.Action<>nil then begin btnCentraalOnder.Action.Execute; - CloseModal; end; end; procedure TfmDrieKnoppenScherm.imgRechtsOnderClick(Sender: TObject); begin if btnRechtsOnder.Action<>nil then begin btnRechtsOnder.Action.Execute; - CloseModal; end; end; @@ -134,6 +131,9 @@ PopupScherm: TfmPopupScherm; begin PopupScherm := TfmPopupScherm.Create(self); + + PopupScherm.Top := self.parent.parent.parent.ClientOrigin.Y + 40; + PopupScherm.Left := self.parent.parent.parent.ClientOrigin.X + 40; PopupScherm.lblWaarschuwing.Caption := Melding; PopupScherm.lblActie1.Caption := Actie1;