Q&A

  • 메뉴에 종료를 가장 끝으로 보내기
메뉴에 종료를 가장 끝으로 보내고 싶습니다.

예로]
파일  편집  보기  즐겨찾기 도구 도움말                                         종료


위의 처럼 하고 싶습니다.

하려고 하니까.. 잘되지 않네요..
고수분들의 고견을 부탁합니다.
1  COMMENTS
  • Profile
    최용일 2002.02.23 23:55
    안녕하세요. 최용일입니다.

    Delphi3000에 있는 팁입니다.

    Question:

    How can I align menu at the right side of my form?

    Answer:

    procedure SetJustify(Menu: TMainMenu; MenuItem: TMenuItem; Justify: Boolean);
    {$IFDEF WIN32}
    var
        ItemInfo: TMenuItemInfo;
        Buffer: array[0..80] of Char;
    {$ENDIF}
    begin
    {$IFDEF VER80}
        MenuItem.Caption := Chr(8) + MenuItem.Caption;
    {$ELSE}
        ItemInfo.cbSize := SizeOf(TMenuItemInfo);
        ItemInfo.fMask := MIIM_TYPE;
        ItemInfo.dwTypeData := Buffer;
        ItemInfo.cch := SizeOf(Buffer);
        GetMenuItemInfo(Menu.Handle, MenuItem.Command, False, ItemInfo);
        if Justify then
        begin
            ItemInfo.fType := ItemInfo.fType or MFT_RIGHTJUSTIFY;
            SetMenuItemInfo(Menu.Handle, MenuItem.Command, False, ItemInfo);
        end;
    {$ENDIF}
    end;

    ^^ 항상 즐코하세요...