| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TMenu ??? [D6, Win2k]
DrFaust © (2002-12-13 16:10:00)Народ, как сделать в основном меню программы чтобы пунктик, типа "Помощь" был с правой стороны, как в WC?
Зарание спасибо всем кто ответит.
DrFaust (2002-12-17 13:01:00) [1]Спасибо всем. Все работает
Александр В. (2002-12-17 12:56:00) [2]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
Юрий Зотов (2002-12-14 08:19:00) [3]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
DrFaust (2002-12-13 16:24:00) [4]Граждане, неужели нет никаких соображений на этот счет?
| |
