mehrere DBMemo und Popupmenu

[DiscMix]

Hallo Community,

ich habe ein Problem :)

Ich habe mehrere DBMemoFelder auf unterschiedlichen Formen (MDIChild-Fenster).
Die Formen werden bei Bedarf geladen und beim Schliessen wieder entladen.
Den DBMemofelder habe ich ein Popupmenu zugewiesen, das sich in meinem
Hauptformular plaziert habe, hier sind solche Sachen wie Kopieren, Ausschneiden,
Einfügen usw. Die funktionieren auch.

Es gibt ein weiteren Menüpunkt, der nennt sich Textbausteine. Hier wird ein
Fenster geöffnet, man kann sich aus einem DBGrid ein Textbaustein auswählen, der
Inhalt soll im DBMemo eigefügt werden.

Wie aber weis ich, welches DBMemo den Popupmenüpunkt angeklickt hat, damit
ich den aktuellen Datensatz in dieses Memofeld einfügen kann?

Vielen Dank fürs Feedback
Marco

[Robert_G]

Das zeigt den Namen des Controls an, in dem das Popupmenu geöffnet wurde (OnClick eines MenuItems)

Delphi-Quellcode:

ShowMessage(TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent.Name);

... also den Wert von PopupComponent des dazugehörigen PopupMenu.

[DiscMix]

Vielen Dank.. funktioniert soweit...aber schon taucht ein folgeproblem auf.

Meine DBMemos heissen (dummerweise)

frmEins.DBMemo1
frmEins.DBMemo2
usw.
frmZwei.DBMemo1
frmZwei.DBMemo2
usw.

Wie kann's hier funktionieren?

[Robert_G]

Das mit dem Namen war nur ein Beispiel.
Du kannst PopupComponent auch direkt mit den Objekten vergleichen.

Delphi-Quellcode:

  ...
 If TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent = frmEins.DBMemo1 Then ...

p.s.: Benennungen wie DBMemo1, PopupMenu1, Edit2,... werden dich noch mal in den Wahnsinn treiben.
Spätestens wenn du nach 2 Wochen deinen Code "entwanzen" musst.

[DiscMix]

Mit den Namen hast du ja recht, aber in den Formen passier eigentlich nicht mehr ausser die anzeigen. der rest wird über ein datenmodul geregelt.

vielen dank, ich werd's morgen ausprobieren.