[TActionToolbar] selektierten MenüEintrag-Index

[mytar]

Ich hab in meinen ActionToolbar einige Buttons, und diese Buttons haben Menüs.

Wie erbekomme ich den Index des eines selektieren Menüeintrags.

Muss ich das via ActionManager machen?


Ich finde kein ItemIndex wie bei vielen anderen Komponenten.

Bitte helft mir weiter

mytar

[mytar]

Ist hier wirklich niemand der mir weiterhelfen kann?

Hat noch keiner so was ähnliches mit TActionToolbar gemacht?

mytar

[mytar]

Hey!

Was soll ich machen?

Hilfe!

mytar

[mytar]

Ist vielleicht jetzt eine hier, der mir weiterhelfen kann?

mytar

[mytar]

Ich hab immer noch keine Lösung gefunden!

Im Objektinspektor kann man die Items vom Typ TActionClients editieren.

Ich finde aber nicht soetwas wie Index oder ItemIndex.

Was soll ich bloß machen ?

mytar

[Basic-Master]

meinst du wenn auf ein butten geclickt wird? dann würd ichs mit actions machen (siehe actionamanger).. beim OnExecute vom actionmanager kannst du dann Action casten und so kriegst du halt den index raus:

Delphi-Quellcode:

(Action As TAction).Index

[mytar]

Nein, ich hab ein DropDown-Menü auf einem Button im TActionToolBar.

Wenn ich auf einen Eintrag im Menü klicke, möchte ich den Index erhalten.

d.h. also ich bräuchte den Index des äusgewählten Menüeintrags.

mytar

[Sharky]

Hai mytar,

meinst Du das so:

Delphi-Quellcode:

procedure TForm1.MyPopUpClick(Sender: TObject);
begin
  ShowMessage(IntToStr(PopupMenu1.Items.IndexOf(TMenuItem(Sender))));
end;

[mytar]

Genau!

Aber die IndexOf - Methode gibt es bei TActionClients nicht!

:cry: :cry:

mytar

[Basic-Master]

Zitat:

Zitat von mytar

Genau!

Aber die IndexOf - Methode gibt es bei TActionClients nicht!

aber sowas ähnliches beim actionmanager :)

Delphi-Quellcode:

showmessage(inttostr(ActionManager1.FindItemByAction((Sender As TAction)).Index));

[mytar]

Danke, aber

Delphi 6: gibts die Methode nicht

Delphi 7: Ich bekomme leider nur den Index der Action vom ActionManager.

Ich bräuchte den Index des Menüeintrags.

Jetzt fang ich an zu :cry: :cry: :cry: .

mytar

[Basic-Master]

aehm ja? bei mir funktioniert der code unter delphi 7 wunderbar, bei mir wird der index korrekt angezeigt :gruebel:

P.S. hast du den code auch ins OnExecute-Event von der Action gepackt?

[EDIT]hab die actions im action manager auch n bischen vertauscht usw., bei mir funzt der code trotzdem noch ^^ [/EDIT]

[mytar]

Und bei Delphi 6 hab ich überhaupt keine Change, oder? :(

Denn ich denke die Methode FindItemByAction() ist erst ab Delphi 7 implementiert.

greetz
mytar

[mytar]

*Bush* :-D

greetz
mytar :-D

[mytar]

*push*

[Robert_G]

Du nervst hier ein Jahr lang rum und kommst nicht auf die Idee einfach in die Sources zu schauen wie's implementiert ist? :gruebel: