MainMenue Eintrag am Rechten Rand ausrichten

[trashcandesign]

Hallo,

ich habe diese Frage schon im März gestellt, aber leider keinerlei Antworten bekommen.

Ich habe eine TActionMainMenueBar. Im TActionManager definiere ich dann die TActionClientItems, die ich wiederum auf der MenueBar plaziere.

Soweit so gut.

Jetzt möchte ich aber den Menüpunkt 'Hilfe' wie man es von 'Früher' kennt am rechten Rand haben, den Rest wie gewohnt links.
Ist das möglich? Natürlich ist das möglich, aber wie?

Gruß
trashcandesign

[mkinzler]

Vielleicht als extra Menu?

[trashcandesign]

Oh man,

ich sollte mir echt angewöhnen mal ein bisschen abstrakter zu denken :wall:

Ich habe jetzt zwei TActionMainMenueBars. Die erste mit Anchors Top,Left und Right, die zweite direkt rechts daneben mit den Anchors Top und Right. Bei beiden natürlich kein Alignment.

Danke dir, mal wieder hast ud mich weiter gebracht *g*

[pertzschc]

Mit einem normalen Menu kann man es folgendermaßen machen:

Delphi-Quellcode:

...im FormCreate...
// mache info-menu rechtsbündig
AlignMenuRight(GetMenuItemCount(MainMenu1.Handle)-1, self);


procedure AlignMenuRight(AbItem: Integer; Form: TForm);
var
 m : TMenuItemInfo;
 h : hMenu;
 s : shortstring;
begin
 h:=GetMenu(Form.Handle);
 m.cbSize:=SizeOf(m);
 m.cch:=SizeOf(s);
 m.dwTypeData:=pchar(@s[1]);
 m.fMask:=MIIM_TYPE;
 GetMenuItemInfo(h,AbItem,true,m);
 m.ftype:=m.ftype or MFT_RIGHTJUSTIFY;
 SetMenuItemInfo(h,AbItem,true,m);
end; {copyright by Mario Mueller}

Vielleicht funktioniert SetMenuItemInfo ja auch mit Deinem Menu.