SetMenuItemBitmaps macht nichts...

[topsecret]

Hi,

ich möchte per SetMenuItemBitmaps die Icons eines PopUp-Menüs ändern.
Leider regt sich hier gar nichts (Rückgabewert ist false):

SetMenuItemBitmaps(TestItem.Handle,0,MF_BYPOSITION,Image1.Picture.Bitmap.Handle,Image2.Picture.Bitmap.Handle);
"TestItem" ist hier ein (bereits zugewiesener) TMenuItem.

Laut allen möglich Code-Beispielen im Web sollte aber genau das funktionieren.

Ich verwende momentan Windows 8. Kanns evtl. daran liegen?

GetLastError gibt leider auch nur "0" zurück.

Hoffe mal, dass ihr mir helfen könnt

[Volker Z.]

Hallo,

mach es mal so:
SetMenuItemBitmaps (TestItem.Parent.Handle, 0, MF_BYPOSITION, Image1.Picture.Bitmap.Handle, Image2.Picture.Bitmap.Handle)

Gruß

[topsecret]

Oh wie peinlich

Mit dem eigentlichen TPopupMenu (also dem Parent) hatte ichs davor schon versucht aber im Internet dann das Beispiel mit dem TMenuItem gefunden und deswegen auch verwendet.

Der Rückgabewert ist jetzt auch tatsächlich TRUE.

Aber wird leider immer noch nichts angezeigt.

Kann es evtl. sein, dass mir die Delphi 7 Komponente dazwischenfunkt?

Da diese beim Einsetzen von Images in den Items das PopUp-Menü automatisch ownerdraw setzt, wollte ich schließlich auch den Weg über die API wählen.

Externe Komponenten (wie z.B. Toolbar 2000) möchte ich allerdings vermeiden.

[topsecret]

Hi,

würde das Thema gerne nochmal pushen, da ich leider immer noch keine Lösung für das Problem gefunden hab.

Noch niemand dasselbe Problem gehabt?