Vieleicht Liegt das bei Erstellen ???
Delphi-Quellcode:
Function CREATE_POPUP( Nr : Word ) : TPopupMenu;
Var mi : Array [0..1] of TMenuItem;
Begin
Result := TPopupMenu.Create( self );
Result.Name := '_POP_'+IntToStr(UA[Nr].Panel);
mi[0] := TMenuItem.Create( result );
mi[0].Caption := 'Vorschau';
mi[0].OnClick := ON_CLICK_POPUP_VORSCHAU;
Result.Items.Add( mi[0] );
mi[1] := TMenuItem.Create( result );
mi[1].Caption := 'Detalierte Bearbeitung';
mi[1].OnClick := ON_CLICK_POPUP_DETALIERTE;
Result.Items.Add( mi[1] );
End;
So wird es erstellt.
gruss
seba