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

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

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


这是我想实现的效果



如何才能实现呢？

[解决办法]
每个菜单项有MesureItem事件
[解决办法]

Delphi(Pascal) code

procedure TForm1.N1MeasureItem(Sender: TObject; ACanvas: TCanvas;  var Width, Height: Integer);beginend;
[解决办法]
探讨

Delphi(Pascal) code

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

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

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