procedure TForm1.N11DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
Selected: Boolean);
begin
If (Selected) Then
begin
ACanvas.Font.Color := clWhite ;
ACanvas.Brush.Color := clWebDodgerBlue;
ACanvas.FillRect(ARect);
DrawText(ACanvas.Handle, PChar(‘ 取消开机启动‘), -1, ARect, DT_LEFT Or DT_LEFT Or DT_SINGLELINE Or DT_NOCLIP);
end
Else
begin
ACanvas.Font.Color := clblack;
ACanvas.Brush.Color := clWebSnow;
ACanvas.FillRect(ARect);
DrawText(ACanvas.Handle, PChar(‘ 取消开机启动‘), -1, ARect, DT_LEFT Or DT_LEFT Or DT_SINGLELINE Or DT_NOCLIP);
end;
end;
自定义popupmenu菜单背景色,布布扣,bubuko.com
原文：http://www.cnblogs.com/onionhacker/p/3712967.html