TMenuItem = TopItem?

[marabu]

Hallo Frank,

versuche es mal so:

Delphi-Quellcode:

function IsMainItem(menu: TMenu; item: TMenuItem): Boolean;
begin
  Result := item.Parent = menu.Items;
end;

procedure TDemoForm.TestButtonClick(Sender: TObject);
begin
  ShowMessage(BoolToStr(IsMainItem(MainMenu, FileMenu), True));
end;

Freundliche Grüße