TMenu

type TMenu = class(TLCLComponent)

protected

  class procedure WSRegisterClass; override;

  procedure BidiModeChanged; virtual;

  procedure CreateHandle; virtual;

  procedure DoChange(); virtual;

  function GetHandle; virtual;

  procedure GetChildren(); override;

  procedure MenuChanged(); virtual;

  procedure AssignTo(); override;

  procedure Notification(); override;

  procedure ParentBidiModeChanged();

  procedure SetChildOrder(); override;

  procedure UpdateItems;

  property OnChange: TMenuChangeEvent; [rw]

public

  FCompStyle: LongInt;

  constructor Create(); override;

  destructor Destroy; override;

  procedure DestroyHandle; virtual;

  function FindItem();

  function GetHelpContext();

  function IsShortcut();

  function HandleAllocated;

  function IsRightToLeft; virtual;

  function UseRightToLeftAlignment; virtual;

  function UseRightToLeftReading; virtual;

  procedure HandleNeeded;

  function DispatchCommand();

  property Handle: HMENU; [r]

  property Parent: TComponent; [rw]

  property ShortcutHandled: Boolean; [rw]

published

  property BidiMode: TBidiMode; [rws]

  property ParentBidiMode: Boolean; [rw]

  property Items: TMenuItem; [r]

  property Images: TCustomImageList; [rw]

  property ImagesWidth: Integer; [rw]

  property OwnerDraw: Boolean; [rw]

  property OnDrawItem: TMenuDrawItemEvent; [rw]

  property OnMeasureItem: TMenuMeasureItemEvent; [rw]

end;

TMenu

TLCLComponent

TObject