Afficher les éléments d'un menu à droite

procedure TForm1.FormCreate(Sender: TObject);
const
MenuIndex = 3;
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);
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 975 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Objet
Auteur de l'article
arachnosoft arachnosoft
connecté le 02/11/2011
1 articles dans la section
Contacter l'auteur