Experts Exchange connects you with the people and services you need so you can get back to work.
Submit
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
We will never share this with anyone. Privacy Policy
Must be at least 4 characters long.
Join and Comment
By clicking you are agreeing to Experts Exchange's Terms of Use.
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.
var
uiFlags : UINT;
......
if ( MainMenu1.Items.Count > 0 ) then
with MainMenu1.Items[ 0 ] do begin
{$IFDEF WIN32}
uiFlags := MF_BYPOSITION or MF_RIGHTJUSTIFY;
if Count > 0 then uiFlags := uiFlags or MF_POPUP;
ModifyMenu( MainMenu1.Handle, 0, uiFlags, Handle, PChar( Caption ) );
{$ELSE}
Caption := #8 + Caption;
end;
Just paste it in your create event, or whereever.
/// John