如何改变popupMenu中分割线所占的高度呢，如图所示！

[程晨c]

如何改变popupMenu中分割线所占的高度呢，如图所示！

这是delphi的弹出菜单的分割线默认的高度


这是我想实现的效果



如何才能实现呢？

[bdmh]

菜单的OwnerDraw设置为true，然后在你想控制的Item的MeasureItem事件中写下Height := xxxx;

[bdmh]

每个菜单项有MesureItem事件

[程晨c]

[Quote=引用 1 楼 bdmh 的回复:]

每个菜单项有MesureItem事件
[/Quote]

什么意思呢？麻烦你讲详细些！

[我看见佛]

procedure TForm1.N1MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin

end;

bdmh
的意思应该是设置这里的var Width, Height: Integer);

[大悟还俗]

[Quote=引用 3 楼 case5166 的回复:]
Delphi(Pascal) code

procedure TForm1.N1MeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
begin

end;
bdmh
的意思应该是设置这里的var Width, Height: Integer);
[/Quote]

应该怎么设置？？？？