0
大型弹出式菜单上出现绘图问题。 菜单的箭头没有显示，有些绘画问题VCLStyle无法在大型弹出式菜单上正确绘图
如何解决这个问题？
procedure TForm1.Button1Click(Sender: TObject);
var
mi:TMenuItem;
I: Integer;
begin
for I := 0 to 100 do
begin
mi:=TMenuItem.Create(PopupMenu1);
mi.Caption:='Item '+IntToStr(I);
PopupMenu1.Items.Add(mi);
end;
end;
样本图像：
菜单项与样本代码生成的弹出菜单的
结束弹出菜单的没有样式（母语）
完与式
在菜单上点击箭头处：
全屏图片：
编辑：
-Delphi XE3
- 添加完整屏幕菜单图像。
OT：*？如何解决这个问题*有一个较小的菜单。没有人想滚动那么多项目;-)顺便说一句。你使用哪个版本的Delphi？你可以在你的问题中添加一个Delphi版本标签吗？ – TLama
不是一个更小的菜单。裁剪图像。添加了100个菜单项。 Delphi版本XE3 – zgn
同样的问题有时可能出现在正常的菜单上（不使用样式）。我记得在Windows开始菜单上用大量元素和滚动启用类似的错误（垂直线）。但问题并不总是会发生。当滚动更小的流水时，这个问题从未显示。它只有在滚动较长时间时才会显示。 – SilverWarior