Question

delphi stringgrid 判断选中的列

如果选择点击的是第2列, 那么才执行 粘贴的代码,
else 点击其它列栏位单元格时,就无操作...不粘贴

这代码怎么添加?

Answer 1

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
if ACol = 2 then
StringGrid1.Cells[ACol, ARow] := '123';
end;