zur laufzeit...

[SkinnerLA]

hallo zusammen,

ich ein kleines problem. ich hab ein popupmenu in das ich zur laufzeit einträge mache und in diese einträge wiederrum möchte ich ein submenü einfügen aber wie erstell ich ein untermenü zur lauf?
ich hab hier mal etwas source mit dran

NewItem := TMenuItem.Create(Self);
NewItem.Caption := liste;
popupmenu1.Items[5].Add(NewItem);
while (Findnext(searchrec) = 0) do
begin
liste:=searchrec.name;
NewItem := TMenuItem.Create(Self);
NewItem.Caption := liste;
NewItem.OnClick :=NewTableclickProc ;
{ try

lehr:= linkintabelle(liste);
if lehr <> '' then begin
NewItem := TMenuItem.Create(Self);
NewItem.Caption := linkintabelle(liste);
NewItem.OnClick :=NewTableclickProc ;
end;
except

end; }
popupmenu1.Items[5].Add(NewItem);
end;

[Brigitte Svab]

Hallo!

Es gibt in der Unit "Menus" ein paar nette Funktionen, die einem einiges an Arbeit abnehmen:<br>
NewItem<br>
NewLine<br>
NewMenu<br>
NewPopUpMenu<br>
NewSubMenu

Versuchs mal damit, in der Hilfe stehen die Parameter dafür beschrieben