A menüpontokhoz egy kis kép (BMP) hozzáadása nem egy túl nehéz feladat. A hozzárendeléshez a
SetMenuItemBitmaps API hivatkozást használhatjuk az alábbiak szerint:

procedure TForm1.FormCreate(Sender: TObject);
var
Bmp1 : TPicture;
Bmp2 : TPicture;
begin
Bmp1 := TPicture.Create;
Bmp1.LoadFromFile('C:\Dokumentumok\ikon1.bmp');
Bmp2 := TPicture.Create;
Bmp2.LoadFromFile('C:\Dokumentumok\ikon2.bmp');
SetMenuItemBitmaps( FileMenu.Handle,
0,
MF_BYPOSITION,
Bmp1.Bitmap.Handle,
Bmp2.Bitmap.Handle);
end;


Először létrehozza az egyik (Checked) képet, majd hozzárendeli a képet tartalmazó fájlt.

Létrehozza a másik (Unchecked) képet is. Ehhez is hozzárendeli a megadott fájlt.

Meghívja a SetMenuItemBitmaps API hívást a megadott paraméterekkel:

A FileMenu a 'függőleges' főmenü neve.

A 0,1,2... a menüpont menüben lévő helyzetét jelöli (A példában a Fájl menü első eleme)

Az első Bitmap.Handle a menüpont nem jelölt (Unchecked) képét tölti be, a második pedig a
menüpont jelölt (Checked) képét.


Megjegyzés:
A képeknek csak a bal felső sarka fog látszani, ha a kép túl nagy lenne a rendelkezésére álló
helyhez képest.
Sajnos a jelölés nem változik meg automatikusan, de ezen könnyen lehet segíteni, ha az adott
menüpont OnClick eseményébe az alábbi sorkat írjuk:

procedure TForm1.MyComp1Click(Sender: TObject);
begin
if MyComp1.Checked then
MyComp1.Checked:=False
else MyComp1.Checked :=True
end;