TMenu ???

← →
DrFaust (2002-12-13 16:10) [0]

Народ, как сделать в основном меню программы чтобы пунктик, типа "Помощь" был с правой стороны, как в WC?
Зарание спасибо всем кто ответит.

← →
DrFaust (2002-12-13 16:24) [1]

Граждане, неужели нет никаких соображений на этот счет?

← →
Юрий Зотов (2002-12-14 08:19) [2]

type
TForm1 = class(TForm)
Menu1: TMainMenu;
...
Item5: TMenuItem;
....

procedure TForm1.FormCreate(Sender: TObject);
begin
ModifyMenu(Menu1.Handle, Menu1.Items.IndexOf(Item5),
MF_BYPOSITION or MF_POPUP or MF_HELP,
Item5.Handle, PChar(Item5.Caption))
end

← →
Александр В. (2002-12-17 12:56) [3]

procedure TMain.FormCreate(Sender: TObject);
const
MenuIndex=5;
var
MII:TMenuItemInfo;
MainMenu:hMenu;
Buffer:array[0..50]of Char;
begin
MainMenu:=GetMenu(Handle);
with MII do
begin
cbSize := SizeOf(MII);
fMask := MIIM_TYPE;
dwTypeData := Buffer;
cch := SizeOf(Buffer);
GetMenuItemInfo(MainMenu,MenuIndex,True,MII);
fType := fType or MFT_RIGHTJUSTIFY;
SetMenuItemInfo(MainMenu, MenuIndex, True, MII);
DrawMenuBar(Handle);
end;
end;
Источник torry.net

← →
DrFaust (2002-12-17 13:01) [4]

Спасибо всем. Все работает

TMenu ??? Найти похожие ветки