请问怎么改变Tpopupmenu的背景色? 我想要一个可以改变背景色的TPopupMenu,不知道怎么实现,有这一类的第三方控件吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 标准的要自画,画itemPopupMenu1.OwnerDraw := True;procedure TForm1.N1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);begin ACanvas.Brush.Color := clRed; ACanvas.Brush.Style := bsSolid; ACanvas.FillRect(ARect);end;第三方的肯定有,到盒子上找找 紧急求救:ServerSocket/ClientSocket的问题 谁有排列组合的算法???急!!! 求助:输出到excel的问题 执行另外一个可执行程序同时传递多个参数 有没有释放指针的函数,帮忙找一找! 多线程技术 一个菜鸟的问题,关于combobox的 有谁知道点样能不通过邮件服务器的smtp来发信?如有正确的答案,给100分 一个简单的程序,如何检验结果?(我找不到log文件) shellexecute的声明在哪儿 delphi DateTimePicker 焦点问题 请问在Grid控件里,怎样只使单元格内的文字响应鼠标点击事件?
标准的要自画,画itemPopupMenu1.OwnerDraw := True;procedure TForm1.N1DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
ACanvas.Brush.Color := clRed;
ACanvas.Brush.Style := bsSolid;
ACanvas.FillRect(ARect);
end;第三方的肯定有,到盒子上找找