我正在寻找一个字符串网格,它允许我在网格中的任意位置选择多个单元格,而不会使它们彼此相邻,例如按 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;