Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
8. Jan 2010
Alles klar,
klappt nun. Hier meine Lösung:
if DM_Menue.PUM_Foto.PopupComponent = Form1.IM_Foto1 then
begin
Application.MessageBox(PChar('Hat geklappt.'),'Info',MB_OK or MB_ICONSTOP);
exit;
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
8. Jan 2010
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:
procedure TDM_Menue.Foto_entfExecute(Sender: TObject);
begin
if TBasicAction(Foto_entf).ActionComponent = PUM_Foto_entf then
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
8. Jan 2010
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