Delphi 如何选择字符串网格的多个单独单元格？

我正在寻找一个字符串网格，它允许我在网格中的任意位置选择多个单元格，而不必彼此相邻，例如按CTRL键并单击网格上的各个单元格。或者，如果有人知道如何使用标准的Delphi TStringGrid实现这一点

---

我将非常感激您的指点。

尽管这里有很多能力更强的人，但由于您还没有得到任何答案，我想我还是试试看

我不知道如何让组件为您执行此操作。但是，当您控制单击单元格时，将调用SelectedCell上的事件。（我刚刚测试过。）您可以将代码放入事件处理程序中，将单元格的行和列添加到您保留的选定行和列列表中。然后，在OnDrawCell事件中，高亮显示单元格：

procedure TForm1.StringGrid1DrawCell(    Sender: TObject;
                                         ACol: Integer;
                                         ARow: Integer;
                                         Rect: TRect;
                                         State: TGridDrawState);
begin
   if CellSelected( ARow, ACol) then  // you write CellSelected() to refer to the list you're keeping
     begin
       StringGrid1.Canvas.Brush.Color := clYellow;
       StringGrid1.Canvas.FillRect(Rect);
       StringGrid1.Canvas.TextOut(Rect.Left,Rect.Top,StringGrid1.Cells[ACol,ARow]);
     end;
end;

---

嘿，这是一个有效的解决方案，我不认为有任何更容易实施的方案。因此，虽然可能有人比你更有能力（你不是世界上最好的程序员吗？），但你得到了一个可行的解决方案和答案，而其他人仍在考虑这个问题。