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

发布时间：2020-12-15 09:16:14 所属栏目：大数据来源：网络整理

导读：我正在寻找一个字符串网格,允许我在网格中的任何地方选择多个单元格,而不是它们相互邻接,例如按下CTRL并单击网格上的各个单元格.或者,如果有人知道如何使用标准Delphi TStringGrid执行此操作. 任何指针都会被感激地收到. 解决方法虽然这里有很多能干的人,但

我正在寻找一个字符串网格,允许我在网格中的任何地方选择多个单元格,而不是它们相互邻接,例如按下CTRL并单击网格上的各个单元格.或者,如果有人知道如何使用标准Delphi TStringGrid执行此操作.

任何指针都会被感激地收到.

解决方法

虽然这里有很多能干的人,但由于你没有得到任何答案,我想我会试一试.

我不知道让组件为你做这件事的方法.但是,当您按住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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!