Hallo alexander & Tom,
vielen Dank für Eure Hilfe. Doppelt hält besser und letzt endlich habe auch ich es geschnallt.
Ein Menüpunkt wird automatisch zur Gruppe, wenn man den nächsten Menüpunkt dort hineinlegt.
Hier noch mein auf Euren Anweisungen basierender Testcode:
Delphi-Quellcode:
procedure TFTermin.BitBtn1Click(Sender: TObject);
var
NeuesMenuItem,
NeuesSubmenue : TMenuItem;
begin
//Gruppe hallo anlegen
NeuesSubmenue := TMenuItem.Create(self);
NeuesSubmenue.Name := 'hallo1';
NeuesSubmenue.Caption := 'hallo';
// test2 vorhandener Menüpunkt TMenuItem
test2.Add(NeuesSubmenue);
//Menüpunkt hallo2 anlegen
NeuesMenuItem := TMenuItem.Create(self);
NeuesMenuItem.Name := 'hallo2';
NeuesMenuItem.Caption := 'hallo eins tiefer';
NeuesSubmenue.Add( NeuesMenuItem );
end;
mfg
eddy
[edit=Daniel B]Delphi-Tags eingefügt. Mfg, Daniel B[/edit]