Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by _frank_,
21. Jun 2007
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 ;)
function IsMainTopItem(item: TMenuItem): Boolean;
begin
result:= TComponent(item).getparentcomponent is TMainMenu;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by _frank_,
21. Jun 2007
danke marabu,
dafür muss ich zwar eine TMenu-Instanz übergeben...aber da ich nur 1 MainMenu habe ist das ok ;)
Gruß Frank
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by _frank_,
21. Jun 2007
Hallo,
if TComponent((c as TMenuItem).parent) is TMenu then
geht leider nicht. die bedingung ist nie erfüllt trotz vorhandenem TMainMenu
die Auszüge aus der Menus.pas:
protected
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by _frank_,
21. Jun 2007
hallo,
hab doch geschrieben, dass das parent nicht nil ist, sondern ein gültiges Item zurückgibt.
hab leider auch keine Eigenschaft "HasParent"
Gruß Frank
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by _frank_,
21. Jun 2007
Hi,
ich probiere uns suche schon seit einer Weile. Ich versuche irgendwie herauszufinden, ob ein TMenuItem auf "Level 0" ist, also eigentlich kein ParentItem besitzt.
die Hilfe sagt dazu:
so ganz verstehe ich den Satz grade nicht.
- also parent ist schonmal nie nil. es wird immer ein gültiges Item zurückgegeben...
- TMenuItem kann ich schlecht mit Items vergleichen, da Items ein...