Wie Artikel von Popupmenu dynamisch aktualisieren?
Typ
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
...
Procedure FormMouseDown (Sender: TObject; Button: TMouseButton;
Verschiebung: TShiftState; X, Y: Integer);
Private
Prozedur PopupClick(Sender: TObject);
...
Procedure TForm1.FormMouseDown (Sender: TObject; Button: TMouseButton;
Verschiebung: TShiftState; X, Y: Integer);
beginnen
Wenn Button = MbRight then
beginnen
mit PopupMenu1 Elemente zu tun
beginnen
Alle Elemente entfernt
während Count > 0 zu tun
Delete(0);
Erstes Element hinzufügen
Hinzufügen (NewItem (' Nummer 1', 0, False, True, PopupClick, 0, 'Item1'));
Das zweite Element hinzufügen
Hinzufügen (NewItem ('Punkt 2', 0, False, True, PopupClick, 0,'Item2'));
Ein Trennzeichen hinzufügen
Add(NewLine);
Ein drittes Element mit zwei Untermenüs hinzugefügt
Hinzufügen (NewSubMenu ('Punkt 3', 0,'Item3'[NewItem (' Unterpunkt 1', 0,
False, True, PopupClick, 0, 'SubItem1'),
NewItem ('Unterpunkt 2', 0, False, True, PopupClick, 0,
'SubItem2')]));
mit Do ClientToScreen (Punkt (X, Y))
Popup (X, Y);
Ende;
Ende;
Ende;
Prozedur TForm1.PopupClick(Sender: TObject);
beginnen
Mit hier eine dumme Art und Weise zu wissen, welche Menü Onclick auslöst
Ereignis. Verwenden Sie stattdessen die Tag-Eigenschaft.
Fall (Sender als TMenuItem). Menüindex von
0: ShowMessage ('Nummer 1');
1: ShowMessage ('Punkt 2');
Ende;
Ende;
Dynamischen Popup-Menüs
Dynamischen Popup-Menüs : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Wie Artikel von Popupmenu dynamisch aktualisieren?
Typ
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
...
Procedure FormMouseDown (Sender: TObject; Button: TMouseButton;
Verschiebung: TShiftState; X, Y: Integer);
Private
Prozedur PopupClick(Sender: TObject);
...
Procedure TForm1.FormMouseDown (Sender: TObject; Button: TMouseButton;
Verschiebung: TShiftState; X, Y: Integer);
beginnen
Wenn Button = MbRight then
beginnen
mit PopupMenu1 Elemente zu tun
beginnen
Alle Elemente entfernt
während Count > 0 zu tun
Delete(0);
Erstes Element hinzufügen
Hinzufügen (NewItem (' Nummer 1', 0, False, True, PopupClick, 0, 'Item1'));
Das zweite Element hinzufügen
Hinzufügen (NewItem ('Punkt 2', 0, False, True, PopupClick, 0,'Item2'));
Ein Trennzeichen hinzufügen
Add(NewLine);
Ein drittes Element mit zwei Untermenüs hinzugefügt
Hinzufügen (NewSubMenu ('Punkt 3', 0,'Item3'[NewItem (' Unterpunkt 1', 0,
False, True, PopupClick, 0, 'SubItem1'),
NewItem ('Unterpunkt 2', 0, False, True, PopupClick, 0,
'SubItem2')]));
mit Do ClientToScreen (Punkt (X, Y))
Popup (X, Y);
Ende;
Ende;
Ende;
Prozedur TForm1.PopupClick(Sender: TObject);
beginnen
Mit hier eine dumme Art und Weise zu wissen, welche Menü Onclick auslöst
Ereignis. Verwenden Sie stattdessen die Tag-Eigenschaft.
Fall (Sender als TMenuItem). Menüindex von
0: ShowMessage ('Nummer 1');
1: ShowMessage ('Punkt 2');
Ende;
Ende;