自定义popupmenu菜单背景色

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;