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

Question

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

如有任何指点，我们将不胜感激。

Answer 1

虽然这里有很多有能力的人，但既然你还没有得到任何答案，我想我应该尝试一下。

我不知道如何让该组件为您执行此操作。但是，当您按住 Control 键并单击某个单元格时，将调用 OnSelectedCell 事件。 (我刚刚测试过。)您可以将代码放入事件处理程序中，将单元格的行和列添加到您保留的所选行和列的列表中。然后，在 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;