Erstellen und Hinzufügen einer Menuitem zur Laufzeit
Wie erstellen und eine Menuitem zur Laufzeit hinzufügen?
Typ
TForm1 = class(TForm)
...
Private
Prozedur MenuClick(Sender: TObject);
...
Wird: = TMenuItem.Create(nil); Selbst nicht benötigt
mit wird do
beginnen
Caption: = '& testen';
OnClick: = MenuClick; //
Ende;
MainMenu1.Items.Add(NewMenu); Neue Hauptmenü
MainMenu1.Items[0]. Add(NewMenu); Neues menuitem
NewItem
NewLine
MewMenu
NewPopupMenu
NewSubMenu
MainMenu1.Items.Add (NewItem ('& testen', 0, True, True, NULL, 1101, cm));
MainMenu1.Items[0]. Hinzufügen (NewSubMenu ('& testen', 0, 'AName2',
[NewItem ('&' test1 '', 0, True, True, NULL, 0, ''),
NewItem ('& Test2', 0, True, True, NULL, 0, '')]));
MainMenu1.Items[0]. Add(NewLine);
mit NewPopupMenu (selbst, 'ole', Paleft, wahr,
NewItem ('&' test1 '', 0, True, True, NULL, 0, ''),
NewItem ('& Test2', 0, True, True, NULL, 0, '')]) zu tun
Popup (10, 10);
Erstellen und Hinzufügen einer Menuitem zur Laufzeit
Erstellen und Hinzufügen einer Menuitem zur Laufzeit : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Wie erstellen und eine Menuitem zur Laufzeit hinzufügen?
Typ
TForm1 = class(TForm)
...
Private
Prozedur MenuClick(Sender: TObject);
...
Wird: = TMenuItem.Create(nil); Selbst nicht benötigt
mit wird do
beginnen
Caption: = '& testen';
OnClick: = MenuClick; //
Ende;
MainMenu1.Items.Add(NewMenu); Neue Hauptmenü
MainMenu1.Items[0]. Add(NewMenu); Neues menuitem
NewItem
NewLine
MewMenu
NewPopupMenu
NewSubMenu
MainMenu1.Items.Add (NewItem ('& testen', 0, True, True, NULL, 1101, cm));
MainMenu1.Items[0]. Hinzufügen (NewSubMenu ('& testen', 0, 'AName2',
[NewItem ('&' test1 '', 0, True, True, NULL, 0, ''),
NewItem ('& Test2', 0, True, True, NULL, 0, '')]));
MainMenu1.Items[0]. Add(NewLine);
mit NewPopupMenu (selbst, 'ole', Paleft, wahr,
NewItem ('&' test1 '', 0, True, True, NULL, 0, ''),
NewItem ('& Test2', 0, True, True, NULL, 0, '')]) zu tun
Popup (10, 10);
Erstellen und Hinzufügen einer Menuitem zur Laufzeit
By Wiezutun
Erstellen und Hinzufügen einer Menuitem zur Laufzeit : Mehreren tausend Tipps, um Ihr Leben einfacher machen.