Menu à droite de la fenêtre


c'Est le menu à droite de la fenêtre ?
var
& nbsp & nbsp MENUITEMINFO: TMENUITEMINFO
& nbsp & nbsp Tampon: array[0..79] de Char // déclarés dans le menu.pas. Je me demande pourquoi 79.
begin
& nbsp & nbsp FillChar(MENUITEMINFO, SizeOf(MENUITEMINFO), 0)
& nbsp & nbsp // !! Ne pas utiliser SizeOf(MENUITEMINFO) parce que c'est nécessaire pour Windows 95
& nbsp & nbsp // !! Cf. Menu.pas
& nbsp & nbsp MENUITEMINFO.cbSize := 44
& nbsp & nbsp MENUITEMINFO.fMask := MIIM_TYPE
& nbsp & nbsp MENUITEMINFO.dwTypeData := Tampon
& nbsp & nbsp MENUITEMINFO.cch := SizeOf(Buffer)
& nbsp & nbsp // Obtenir de l'info
& nbsp & nbsp si GetMenuItemInfo(MainMenu1.Poignée, 1, TRUE, MENUITEMINFO)
& nbsp & nbsp commencer
& ! & ! & ! & nbsp MENUITEMINFO.fType := MENUITEMINFO.fType ou MFT_RIGHTJUSTIFY
& ! & ! & ! & nbsp si SetMenuItemInfo(MainMenu1.Poignée, 1, TRUE, MENUITEMINFO)
& ! & ! & ! & ! & ! & nbsp DrawMenuBar(Manche) // non requis si le fait de l'événement OnCreate
& nbsp & nbsp fin









Menu a droite de la fenetre


Menu a droite de la fenetre : Plusieurs milliers de conseils pour vous faciliter la vie.


c'Est le menu a droite de la fenetre ?
var
& nbsp & nbsp MENUITEMINFO: TMENUITEMINFO
& nbsp & nbsp Tampon: array[0..79] de Char // declares dans le menu.pas. Je me demande pourquoi 79.
begin
& nbsp & nbsp FillChar(MENUITEMINFO, SizeOf(MENUITEMINFO), 0)
& nbsp & nbsp // !! Ne pas utiliser SizeOf(MENUITEMINFO) parce que c'est necessaire pour Windows 95
& nbsp & nbsp // !! Cf. Menu.pas
& nbsp & nbsp MENUITEMINFO.cbSize := 44
& nbsp & nbsp MENUITEMINFO.fMask := MIIM_TYPE
& nbsp & nbsp MENUITEMINFO.dwTypeData := Tampon
& nbsp & nbsp MENUITEMINFO.cch := SizeOf(Buffer)
& nbsp & nbsp // Obtenir de l'info
& nbsp & nbsp si GetMenuItemInfo(MainMenu1.Poignee, 1, TRUE, MENUITEMINFO)
& nbsp & nbsp commencer
& ! & ! & ! & nbsp MENUITEMINFO.fType := MENUITEMINFO.fType ou MFT_RIGHTJUSTIFY
& ! & ! & ! & nbsp si SetMenuItemInfo(MainMenu1.Poignee, 1, TRUE, MENUITEMINFO)
& ! & ! & ! & ! & ! & nbsp DrawMenuBar(Manche) // non requis si le fait de l'evenement OnCreate
& nbsp & nbsp fin


Menu à droite de la fenêtre

Menu à droite de la fenêtre : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation