我想给菜单控件加上颜色

Question

要想加颜色，要设置OWNERDRAW为TRUE。然后写ONOWNERDRAW。
要使属性能出现在Object Inspector中，将COLOR定义为Published

Answer 1

设置Ownerdraw true,ONMeasureItem可调大小（width,height参数另一参数canvas可确定字体高度）；OndrawItem事件可绘图像,加色彩：
if selected then
  Acanvas.brush.color:=clHighlight
else
  acanvas.brush.color:=clMenu;

Answer 2

属性要出现在inspector中，就要自已定义一个控件，继承的基础上加上color属性

Answer 3

自己做一个控件，从TPopupMenu或者TMainMenu继承，就可以了。