Ajout d'une fonction Aide dans un TMainMenu
par
, 14/03/2023 à 14h52 (1199 Affichages)
Pour Aggicher le menu Aide à la droite de la barre de menu
ou Help1 est le TMenuItem du menu Aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 // a placer dans la procedure FormCreate MENUITEMINFOA mii; HMENU MainMenu=MainMenu1->Handle; char Buffer[80]={}; mii.cbSize = sizeof(mii) ; mii.fMask = MIIM_TYPE; mii.dwTypeData = Buffer; mii.cch = sizeof(Buffer) ; GetMenuItemInfoA(MainMenu, Help1->Command, FALSE, &mii) ; //SET Help Menu Item Info mii.fType = mii.fType | MFT_RIGHTJUSTIFY; SetMenuItemInfoA(MainMenu, Help1->Command, FALSE, &mii) ;
cdlt[/QUOTE]