AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Berechtigungen setzen ? -> ActionList

Ein Thema von HolgerCW · begonnen am 10. Mär 2008 · letzter Beitrag vom 11. Mär 2008
Antwort Antwort
HolgerCW

Registriert seit: 28. Nov 2006
Ort: Marl
1.207 Beiträge
 
Delphi XE7 Enterprise
 
#1

Berechtigungen setzen ? -> ActionList

  Alt 10. Mär 2008, 10:04
Hallo zusammen,

ich habe in meinem Programm viele Buttons, welche ich je nach Berechtigung enabled := FALSE/TRUE setze. Die Procedure, die hinter dem Button steht, wird aber auch über die PopUp-Menüs der DBGRids ausgelöst. Wie kann ich nun am besten, wenn ich einen Button enabled = FALSE setzen, auch das dazugehörige PopUp-Menü enabled = FALSE setzen ?

Gruss

Holger
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Berechtigungen setzen ?

  Alt 10. Mär 2008, 10:09
Hai Holger,

ich würde in diesem Fall mit einer ActionList arbeiten. Dort erzeugst Du Aktionen. Bei deinen Controls (Button, PopUpMenü) gibst Du jetzt die erzeugte Action an. Der vorteil ist: Wenn Du die Action auf Enabled True/False setzt werden alle damit verbunden Controls auch enabled/disabled.

Edit: 0815 Demo im Anhang.
Angehängte Dateien
Dateityp: zip demoform_333.zip (12,5 KB, 15x aufgerufen)
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Berechtigungen setzen ?

  Alt 10. Mär 2008, 10:18
Was hat die Überschrift mit dem Thema zu tun? Für dich mag es intern um Berechtigungen gehen, aber das ist doch für das Problem absolut irrelevant. Dein Problem ist doch ein ganz anderes. Pass bitte die Überschrift des Thread an.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
HolgerCW

Registriert seit: 28. Nov 2006
Ort: Marl
1.207 Beiträge
 
Delphi XE7 Enterprise
 
#4

Re: Berechtigungen setzen ?

  Alt 10. Mär 2008, 12:26
Astreine Sache.

Jetzt muss ich nur leider alle meine PopUp - Menüs komplett umstricken. Fleissarbeit

Überschrift ist geändert ...

Gruss

Holger
  Mit Zitat antworten Zitat
HolgerCW

Registriert seit: 28. Nov 2006
Ort: Marl
1.207 Beiträge
 
Delphi XE7 Enterprise
 
#5

Re: Berechtigungen setzen ? -> ActionList

  Alt 10. Mär 2008, 12:42
... obwohl zwei Fragen habe ich da noch:

1. Wie kann ich die ganze Actionlist Enabled = FALSE/TRUE setzen ?
2. Und wie kann ich die Actions in Kategorien aufteilen. Weiss nicht wie ich da Kategorien rein bekomme ?

Gruss

Holger
  Mit Zitat antworten Zitat
Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.492 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: Berechtigungen setzen ? -> ActionList

  Alt 10. Mär 2008, 12:49
Zitat von HolgerCW:
1. Wie kann ich die ganze Actionlist Enabled = FALSE/TRUE setzen ?
Du musst über TActionList.Actions mit ActionCount traversieren, dann kannst Du bei jeder enthaltenen TAction machen was Du willst.
Zitat von HolgerCW:
2. Und wie kann ich die Actions in Kategorien aufteilen. Weiss nicht wie ich da Kategorien rein bekomme ?
Im OI kannst Du die Property Category jeder Action setzen.
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
  Mit Zitat antworten Zitat
HolgerCW

Registriert seit: 28. Nov 2006
Ort: Marl
1.207 Beiträge
 
Delphi XE7 Enterprise
 
#7

Re: Berechtigungen setzen ? -> ActionList

  Alt 11. Mär 2008, 10:59
Hi,

super danke. Habe es jetz tumsetzen können ...

Gruss

Holger
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz