本论坛以前曾有过讨论,由Another_eYes解答.可以在离线浏览包中找到.
抱歉找不到原文了,以下是我的摘抄:
在菜单项中增加一条空项,插入于第一行.它的bitmap属性中指定你需要的位图.
菜单的ownerdraw:=true.在OnMeasureItem event中设定菜单的长宽.在
OnOwnerDraw中画位图.
弹出菜单(下拉菜单) popmenu1 第一项为空 n1
procedure TForm1.n1measureitem(..)
begin
width:=n1.bitmap.width;
height:=n1.bitmap.height;
end;
procedure TForm1.n1DrawItem(Sender:TObject;ACanvas:TCanvas;ARect:
TRect;Selected:Boolean)
begin
ACanvas.draw(Arect.left,Arect.top,n1.bitmap);
end;
我曾经实验过的,绝对可行!