自画PopMenu弹出

   BorderColor:TColor; //边框颜色
  FillColor:TColor;   //未选中填充颜色
  TextColor:TColor;   //未选中字体颜色
  SelectTextColor:TColor; //选中字体颜色
  SelectFillColor:TColor; //选中填充颜色
  SideBuffer:Integer;  //边框宽度

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderColor:=clRed;
  FillColor:=clWhite;
  TextColor:=clBlue;
  SelectTextColor:=clYellow;
  SelectFillColor:=clGray;
  SideBuffer:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  po:TPoint;
begin
  po.X:=TControl(Sender).Left;
  po.Y:=TControl(Sender).Top+TControl(Sender).Height;
  po:=ClientToScreen(po);
  PopupMenu1.Popup(po.X,po.Y);
end;

procedure TForm1.N11DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
var
  FocusRectBorder:TRect;
  FocusRectFill:TRect;
  TextRect:TRect;
  MenuItem:TMenuItem;
  Title:string;
begin
  TextRect:=ARect;
  MenuItem:=(Sender) as TMenuItem;
  Title:=MenuItem.Caption;
  //   填充菜单项背景颜色
  ACanvas.Brush.Color:=FillColor;
   ACanvas.FillRect(ARect);
  //没有菜单内容就返回。
  if Title='' then exit;

  //选中菜单
  if selected then
   begin
    //画菜单外面边框。
    FocusRectBorder:=ARect;
      ACanvas.Brush.Color := BorderColor;
      ACanvas.FrameRect(FocusRectBorder);
    //填充菜单内部
    FocusRectFill := ARect;
    //设置内部边框比外面要小点。
    FocusRectFill.Top :=  FocusRectFill.Top + SideBuffer;
      FocusRectFill.Left := FocusRectFill.Left + SideBuffer;
      FocusRectFill.Right := FocusRectFill.Right - SideBuffer;
      FocusRectFill.Bottom := FocusRectFill.Bottom - SideBuffer;
    //设置为高度显示的颜色
    ACanvas.Brush.Color := SelectFillColor;
      ACanvas.FillRect(FocusRectFill);

    //设置当菜单选中后字体的颜色
    ACanvas.Font.Color :=  SelectTextColor;
    ACanvas.Font.Style := ACanvas.Font.Style+[fsBold];
  end
  else  //没有选中
  begin
    //设置当菜单字体的颜色
    ACanvas.font.Color := TextColor;
    ACanvas.Font.Style := ACanvas.Font.Style+[fsBold];
  end;

  //画图标
  if MenuItem.ImageIndex<> -1 then
  begin
    ACanvas.Font.Style := ACanvas.Font.Style-[fsBold];
    ImageList1.Draw(ACanvas,0,(MenuItem.ImageIndex)*27,MenuItem.ImageIndex);
  end;

  //写文字
  TextRect.Left := TextRect.Left+5+24;
   TextRect.Top := TextRect.Top + 1;
   DrawText(ACanvas.Handle,PChar(Title),Length(title),TextRect,0);
end;