danke, funktioniert super und ist für meinen Zwecke völlig ausreichend (löschen von tab+nachfolgende Zeichen bei den MainMenu-Top-Items).
hab mir das nur noch in ne funktion gebaut
Delphi-Quellcode:
function IsMainTopItem(item: TMenuItem): Boolean;
begin
result:= TComponent(item).getparentcomponent is TMainMenu;
end;
******** Thread closed ********
Frank