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