Globales PopupMenü

[Marco.Fischer]

Hallo,
ich möchte folgendes realisieren:

In mehreren Formularen habe ich Eingabefelder, in welche der Anwender auf Wunsch vordefinierte Einträge einfügen kann. Hierzu soll er einen Doppelklick machen und ein PopupMenü erscheint an der Stelle des Doppelklicks. Nach Auswahl eines Menüeintrags/Untermenüeintrags soll ein entsprechender Wert an der Stelle der Eingabemarke eingefügt werden.
Das Popupmenü wird dynamisch durch eine Routine aufgebaut, die sich in einer separaten Unit befindet.

Wie weise ich ein einheitliches OnClick-Ereignis zu, welches sich ebenfalls in der Unit befindet und im Sender den entsprechenden Wert einfügt?

Vielen Dank für jeden Hinweis.

[Bummi]

PopupMenu.PopupComponent ??

[Marco.Fischer]

Hallo Bummi,
Danke für die Antwort.
Welches Steuerelement das Popupmenü aufruft, das ist mir schon klar und kann über Popupmenu.PopupComponent ermittelt werden.
Mir geht es hier um die Definition der Ereignisroutine für das MenuItemClick-Ereignis in einer Unit und nicht innerhalb der Klassendefinition z.B. eines Formulars.

[mkinzler]

Sollte doch über Actions gehen

[Bernhard Geyer]

Wie wäre es wenn du dein Formulare von einer neuen eigen implementierten TMyFormwithFeatures ableitest in dem du diese Funktonalität bereitstellst.

[Bummi]

Die Templatevariante von Bernd Geyser ist auch meine übliche Variante, wenn Du's unbedingt abstakt haben willst

Delphi-Quellcode:

unit Unit2;

interface
uses Menus,Dialogs;

type


  TStubClass=Class
     CLASS Procedure AllgPopup(Sender:TObject);
     Public

  End;

implementation

{ TStubClass }

Class procedure TStubClass.AllgPopup(Sender: TObject);
begin
    Showmessage(TPopupMenu(Sender).Popupcomponent.Name)
end;


end.

mit:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
   Popupmenu1.OnPopup := TStubClass.AllgPopup;
end;

[Marco.Fischer]

Hallo Bernhard, hallo Bummi
Template: Projekt ist schon fertig und Funktionalität soll nachgefertigt werden.

@Bummi:
Ich möchte ja nicht das Popup-Event auslösen, sondern ich möchte den einzelnen MenuItems, die dynamisch erzeugt werden, eine einheitliche OnClick-Routine zuweisen.

[Marco.Fischer]

Hallo,
Problem hat sich gelöst, der Hinweis auf die TStubClass hat geholfen.
Vielen Dank für die Hilfe.