Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.26;
Скачать: CL | DM;

Вниз

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]

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



Страницы: 1 вся ветка

Текущий архив: 2002.12.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
14-86078
Igor_thief
2002-11-10 21:33
2002.12.26
Excel


4-86233
Yegor Derevenets
2002-11-10 20:58
2002.12.26
Звук в телефонную линию


4-86232
Almaz
2002-11-10 04:13
2002.12.26
Popup меню


6-86065
Romych
2002-10-21 20:04
2002.12.26
Надежность - UDP


7-86186
Serg T
2002-09-16 13:17
2002.12.26
Кулер