universalprozedur zum menü durchscannen

[markus lemcke]

hi,

ich möchte eine universalprozedur programmieren, die alle menüs und untermenüs in einem mainmenü durchscannt und der man als parameter noch eine befehlszeile mitgeben kann was sie bei jedem menü tun soll!
geht sowas?

gruß

markus

[Ulrich Gerhardt]

Wenn dir als Befehlszeile eine Prozedur mit fester Signatur reicht,
geht's z.B. so:
<pre>
<code><font size=2 face="Courier New"><font color="#000000"><b>type
</b>TMenuItemProc = <b>procedure</b>(item: TMenuItem);
<br>
<b>procedure </b>TestProc(item: TMenuItem);
<b>begin
</b>ShowMessage(item.Caption);
<b>end</b>;
<br>
<b>procedure </b>EnumMenuItems(item: TMenuItem; proc: TMenuItemProc);
<b>var
</b>i: Integer;
<b>begin
for </b>i := <font color="#0000FF">0 </font><b>to </b>pred(item.Count) <b>do
begin
</b>proc(item[i]);
EnumMenuItems(item[i], proc);
<b>end</b>;
<b>end</b>;
<br>
<b>procedure </b>TForm1.Button1Click(Sender: TObject);
<b>begin
</b>EnumMenuItems(MainMenu1.Items, TestProc);
<b>end</b>;
</font></font>
</code></pre>

HTH, Uli

[markus lemcke]

danke!

werde es heute noch testen!

gruß

marku

[Robert Marquardt]

Bei einer Rekursion sollte eine Abbruchbedingung vorhanden sein

[Ulrich Gerhardt]

Hi Robert,
meine Routine <b>hat</b> eine Abbruchbedingung: irgendwann hast
auch du keine Lust mehr, im Menü-Editor zu MainMenu1 noch mehr Items hinzuzufügen. ;-)
<br>Ciao, Uli