dynamisches OnClick

[Andre Fenske]

Hy,<bR>
ich muss schon wieder Nerven. :-)<bR>
Ich habe eine Function die einen Menueintrag<bR>
und einen Untereintrag erstellt.<bR>
Beiden Wird jeweils eine OnCLick Funktion
zugewiesen.<bR>
<pre>
void *Menu
TMenuItem *m=(TMenuItem*)Menu;

TMenuItem *upper = FindMenu("Ansicht", m);
if (upper==NULL)
{
upper=new TMenuItem(upper);
upper->Caption = "Ansicht";
upper->Tag=0;
m->Insert(1,upper);
}

m = new TMenuItem(m);
m->Caption="Kamera";
m->Tag=(int)OpenMe;
if(m->OnClick!=NULL) ShowMessage("k");
m->OnClick = Form2->C;
if(m->OnClick!=NULL) ShowMessage("j");
upper->Add(m);
}
</pre>
Beim Haupteintrag "upper" funktioniert das auch<bR>
wunderbar nur beim untereintrag "m" nicht.<bR>
Erstelle ich von Hand im Builder ein Menu<bR>
kann ich die OnCLick funktionen nachträglich porblemlos zuweisen,<br>
nur halt nicht wenn das Untermenü Dynamisch erzeugt wurde.<bR>
<br>
<b>mfg.:</b> Andre´

[Günther Weber]

wird dieses ShowMessage("j");
ausgeführt

[Andre Fenske]

Hy,<bR>
ShowMessage("j") wird ausgeführt.<bR>
<bR>
<b>mfg.: </b> Andre&#180

[Günther Weber]

versuch mal

TMenuItem *m=new TMenuItem(NULL)