Die Funktion CurrentUserHasPermission ermittelt ob der aktuelle Benutzer das in aNr übergebene Recht besitzt.
CurrentUserHasPermission(aNr :integer) : boolean
Eingabeparameter ist eine ganze Zahl, die das Benutzerrecht definiert.
Die Rückgabe der Funktion ist ein Boolscher Wert ( true / false ).
Beispiel:
procedure DialogTest_OnShow(SenderName: Integer);
begin;
checkPermissions;
end;
procedure checkPermissions;
begin
ButtonTest1.enabled := CurrentUserHasPermission(50001);
buttonTest2.enabled := CurrentUserHasPermission(50003);
ButtonTest3.enabled := CurrentUserHasPermission(50026);
end;