Event für Deselektierung eines MenuItems?

[Volker Z.]

Hallo,

vielleicht hilft Dir folgendes weiter

Delphi-Quellcode:

type
  TMenuItem = class(Vcl.Menus.TMenuItem)
  protected
    procedure AdvancedDrawItem (ACanvas : TCanvas; ARect : TRect; State: TOwnerDrawState; TopLevel: Boolean); override;
  end;

  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    Item1: TMenuItem;
    Item2: TMenuItem;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

implementation

procedure TMenuItem.AdvancedDrawItem (ACanvas : TCanvas; ARect : TRect; State: TOwnerDrawState; TopLevel: Boolean);
begin
  if odSelected in State then
    // mach was wenn das MenuItem selektiert ist
  else
    // sonst mach was anderes

  inherited AdvancedDrawItem (ACanvas, ARect, State, TopLevel)
end;

Gruß