Wie kann ich eine Bitmap in einem Menu darstellen?

Seit Delphi 4 kann man standardmäßig zu einem Menu/PopupMenu eine ImageList angeben und diese Images im Menu anzeigen lassen. Näheres dazu in der Onlinehilfe.

Diese Lösungen gelten demnach bis Delphi 3:

1. Einfache Lösung: Es gibt mehrere Freeware-Komponente, die (auch animierte) Bitmaps in Menus erlauben. Am besten einfach mal in einem Komponenten-Archiv suchen.

2. Der Weg zu Fuß:

Erstelle ein TBitmap und lade eine Grafik in die Bitmap. Benutze die API-Funktion SetMenuItemBitmaps", um die Bitmap mit dem MenüItem zu verknüpfen:

var Bmp1 : TPicture;
...
Bmp1 := TPicture.Create;
Bmp1.LoadFromFile('c:\where\b1.BMP');
SetMenuItemBitmaps(MenuItemTest.Handle, 0, MF_BYPOSITION,

Bmp1.Bitmap.Handle, Bmp1.Bitmap.Handle);
...

• MenuItemTest ist der Name des MainMenu-Items
• 0,1 ... ist die Position des MenüItems im Menü. (Die Zählung beginnt mit 0)
• Das erste der Bitmap-Handles ist das für den "Unchecked"-Zustand des MenüItems.
• Das zweite der Bitmap-Handles ist das für den "Checked"-Zustand des MenüItems. Die Handles können (wie im Beispiel) gleich sein, oder zwei unterschiedliche Bitmaps bezeichnen.

siehe auch:

Delphi FAQ