Delphi-PRAXiS - Delphi TActionList Items auslesen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi TActionList Items auslesen (https://www.delphipraxis.net/46347-tactionlist-items-auslesen.html)

TActionList Items auslesen

Hallo zusammen

Ich habe eine ActionList, diese übergebe ich einer zweiten Form, in dieser Form möchte ich nun von jedem Item in der List den Hint und die Imagenummer auslesen können.
Das Übergeben läuft ohne Probleme aber beim Auslesen der Informationen klappt etwas nicht.
Ich bin soweit:

Delphi-Quellcode:

actlActions.Actions[icount]. ... //Hier fehlt mir der Hint oder ImageIndex

Es scheint, dass ich es auf die oben gezeigte Variante nicht realisiern kann, gibt es andere Möglichkeiten?

Gruss

Stübi

Re: TActionList Items auslesen

Caste nach TCustomAction (oder TAction), dann geht es:

Delphi-Quellcode:

			ShowMessage((ActionList1.Actions[0] as TCustomAction).Hint+' '+IntToStr((ActionList1.Actions[0] as TCustomAction).ImageIndex));
		

Gruß, teebee

Re: TActionList Items auslesen

Hallo

Ich danke Dir, die Lösung funktioniert einwandfrei.

Gruss Stübi