Event für Deselektierung eines MenuItems?

[PeterPanino]

Hallo! Weiß jemand, welche spezielle Windows Message gesendet wird, wenn ein Popup MenuItem DESELEKTIERT wird, d.h. wenn das MenuItem den Fokus VERLIERT. Und wie man diese Botschaft auswerten kann?

[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ß

[PeterPanino]

Vielen Dank!