1 PopUpMenu auf 2 TImages ->Auf welchem wurde Rechtsgeklickt

[HolgerCW]

Hallo zusammen,

ich habe ein und dasselbe PopUpMenu auf zwei verschiedene TImages gelegt.

Wie kann ich nun herrausfinden von welchem TImage aus das PopUpMenu ausgelöst wurde ?

Gruss

Holger

[fkerber]

Hi!

Gibt es da einen Parameter "Sender"?

Falls ja, sollte der das gewünschte enthalten.


Grüße, Frederic

[DeddyH]

Das sollte in PopupComponent stehen.

[himitsu]

Zitat:

Zitat von fkerber

Gibt es da einen Parameter "Sender"?

Falls ja, sollte der das gewünschte enthalten.

Sender enthält die TPopupMenu-Instanz, welche aufgerufen wurde

[HolgerCW]

Dazu muss ich vielleicht noch hinzufügen, dass ich die MenüItems mit einer Actionlist verbunden habe.

So Frage ich ab, ob ein bestimmtes MenuItem gedrückt wurde:

Delphi-Quellcode:

procedure TDM_Menue.Foto_entfExecute(Sender: TObject);
begin

 if TBasicAction(Foto_entf).ActionComponent = PUM_Foto_entf then
 begin
  Application.MessageBox(PChar('Hat geklappt.'),'Information',MB_OK or MB_ICONSTOP);
  exit;
 end;

end;

PUM_Foto_entf ist das TMenuItem.
PUM_Foto heisst das TPopupMenu
TImage1 heisst das Image1 und TImage2 heisst das Image2

Wie komme ich nun aber an das TImage ?

Gruss

Holger

[DeddyH]

Hast Du mich überlesen?

[HolgerCW]

Alles klar,

klappt nun. Hier meine Lösung:

Delphi-Quellcode:

if DM_Menue.PUM_Foto.PopupComponent = Form1.IM_Foto1 then
 begin

  Application.MessageBox(PChar('Hat geklappt.'),'Info',MB_OK or MB_ICONSTOP);
  exit;

 end;

Ja hatte Dich erst überlesen und das mit dem Sender ging ja nicht. Danke für die Hilfe.

Gruss

Holger