如何知道stringgrid单击的是那一行?那一列?

解决方案 »

  1.   

    procedure TFrmReEducation.SGRBroadSelectCell(Sender: TObject; ACol,
      ARow: Integer; var CanSelect: Boolean);
    var
      SelCont:string;
    begin
      SelectCol:=acol;
      SelectRow:=arow;
      //选中选择框在选择池中显示其内容
      SelCont:=trim(SGRBroad.Cells[SelectCol,SelectRow]);
      lbxsel.Clear;
      if SelCont<>'' then
      begin
        while Length(SelCont)>1 do
        begin
          LbxSel.items.add(copy(SelCont,0,Pos(',', SelCont)-1));
          Selcont:=copy(Selcont,pos(',',SelCont)+1,Length(SelCont));
          end;
      end;