Discussion :

[Cameleon45]

Re-Bjr à tous

J' aurais juste une derniere question au sujet du context menu Windows : comment peut-on attribuer une icone à un item que l' on aurait créé ?

merci d' avance

[gibet_b]

Dans un PopUp Menu ? Rassure-moi, tu n'as pas cherche... :-) Il te faut mettre une TImageList sur ta form et choisir ensuite dans liste deroulante de la propriete ImageIndex de ton TMenuItem l'image que tu veux lui associer.

[Lung]

Voila un exemple à moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
   //.Modification du menu système.
   SystemMenu := GetSystemMenu(Handle, False);
   DeleteMenu(SystemMenu, SC_RESTORE, MF_BYCOMMAND);
   DeleteMenu(SystemMenu, SC_SIZE, MF_BYCOMMAND);
   DeleteMenu(SystemMenu, SC_MINIMIZE, MF_BYCOMMAND);
   DeleteMenu(SystemMenu, SC_MAXIMIZE, MF_BYCOMMAND);
   Application.ProcessMessages;
   InsertMenu(SystemMenu, 0, MF_BYPOSITION + MF_STRING, IDConnexionMenu, '&Connexion ...');
   InsertMenu(SystemMenu, 1, MF_BYPOSITION + MF_SEPARATOR, IDSeparateur, '');
   InsertMenu(SystemMenu, 2, MF_BYPOSITION + MF_STRING, IDRepertoire, '&Définir répertoire ...');
   InsertMenu(SystemMenu, 3, MF_BYPOSITION + MF_STRING, IDActionsMenu, '&Actions');
   InsertMenu(SystemMenu, 4, MF_BYPOSITION + MF_STRING, IDReduireMenu, '&Réduire');
   _BitmapsPopup[1] := TBitmap.Create;
   _BitmapsPopup[1].Height:= ImageConnection.Height;
   _BitmapsPopup[1].Width:= ImageConnection.Width;
   _BitmapsPopup[1].Canvas.Draw(-1, -1, ImageConnection.Picture.Graphic);
   SetMenuItemBitmaps(SystemMenu, 0, MF_BYPOSITION, _BitmapsPopup[1].Handle, _BitmapsPopup[1].Handle);
   Application.OnMessage := OnMessage;

Si ca peut t'aider ...

[Cameleon45]

Je parlais du Context Menu de Windows, Gibet_B

Hélas, cette simple méthode ne s' applique évidemment pas pour ce popupmenu.
Dans ce cas-là, il faut passer par la BDR... et écrire l' adresse pointant vers la DLL qui contient l' icone à utliser, suivit de son index. Mais une fois de plus, j' ignore comment écrire cette info dans la BDR.

[Cameleon45]

merci lung je regarde ça de suite

[gibet_b]

:-) Je me disais aussi...

Je me suis permis de douter, une personne ayant poster un message tres confu a ce sujet il n'y a pas longtemps. Et peu de gens utilisant l'aide ou la fonction de recherche... :-(

Désolé :-)

[Cameleon45]

Gibet_B

une personne ayant poster un message tres confu a ce sujet il n'y a pas longtemps. Et peu de gens utilisant l'aide ou la fonction de recherche...

Et cette tendance ne cesse de prendre de l' ampleur avec le temps... Il est bien dommage que les forums de Developpez n' y échappe pas.

Désolé

Il n' y a pas de quoi l' être. Surtout lorsque l' on essaye de donné un coup de main!

Lung
Edit de mon post : j' ai dit des c******.
Ca marche nickel-chrome pour ce que je veux. Merci Lung.

@++ all et merci

[Lung]

De rien.