Voila, pour insérer une image dans un Nouveau Items sur le popup d'une fiche j'utilise actuellement un TImage, je souhaite récupéré celle-ci à partir d'un TListImage.

Merci d'avance de votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.FormCreate(Sender: TObject);
var
  SystemMenu: THandle;
  ItemIndex: Cardinal;
begin
  SystemMenu := GetSystemMenu(Handle, False);
  AppendMenu(GetSystemMenu(Handle, False), MF_SEPARATOR, 0, '');
  AppendMenu(GetSystemMenu(Handle, False), MF_STRING, 0, 'Nouveau Items...');
  ItemIndex := 8;
  SetMenuItemBitmaps(SystemMenu, ItemIndex, MF_BYPOSITION, Image1.Picture.Bitmap.Handle, Image1.Picture.Bitmap.Handle);
  Application.OnMessage := OnMessage;
end;
Cordialement