有没有办法突出显示TCalendar中的单元格？

在TCalendar中突出显示单元格的方法是通过设置单元格的样式来实现。可以使用TCalendar的OnDrawCell事件来自定义单元格的绘制。

首先，需要在OnDrawCell事件中获取当前单元格的行和列索引，然后根据需要的样式来绘制单元格。可以使用Canvas对象来绘制单元格的背景色、边框、文本等。

以下是一个示例代码，演示如何在TCalendar中突出显示单元格：

procedure TForm1.Calendar1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Calendar: TCalendar;
  Canvas: TCanvas;
begin
  Calendar := Sender as TCalendar;
  Canvas := Calendar.Canvas;

  // 判断是否需要突出显示当前单元格
  if (ACol = Calendar.SelectedCol) and (ARow = Calendar.SelectedRow) then
  begin
    // 设置突出显示的背景色
    Canvas.Brush.Color := clYellow;
    // 设置突出显示的边框
    Canvas.Pen.Color := clRed;
    Canvas.Pen.Width := 2;
  end;

  // 绘制单元格背景色
  Canvas.FillRect(Rect);

  // 绘制单元格文本
  Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Calendar.Cells[ACol, ARow]);
end;

在上述代码中，我们通过判断当前单元格的行和列索引是否与选中的行和列索引相等来确定是否需要突出显示。如果需要突出显示，我们设置了背景色为黄色，边框为红色。然后使用Canvas.FillRect方法绘制背景色，使用Canvas.TextOut方法绘制文本。

这样，在TCalendar中就可以突出显示选中的单元格了。

腾讯云相关产品和产品介绍链接地址：