StringGrid有否单击某一列的特定一个单元格的事件？

Question

TForm1.StringGrid1Click(Sender: TObject);
+
TStringGrid::procedure MouseToCell(X, Y: Integer; var ACol, ARow: Longint);

Answer 1

在TForm1.StringGrid1Click(Sender: TObject)中调用TStringGrid::procedure MouseToCell(X, Y: Integer; var ACol, ARow: Longint); 中的X, Y来判断

Answer 2

procedure TForm.grd_rightMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var col_row:TGridCoord ;
begin
    if Button=mbLeft then
    begin
          col_row:=grd_right.MouseCoord(X, Y);
          if (col_row.X > 0) and (col_row.Y > 0) then
          begin
             if grd_right.cells[col_row.X,col_row.Y]='' then
                grd_right.cells[col_row.X,col_row.Y] :='Right'
                else
                grd_right.cells[col_row.X,col_row.Y] :='' ;
          end;
    end;end;//我的点击dbgrid区域的代码，给你参考

Answer 3

  谢谢大侠兄们！
  有你们的帮忙好像什么都能办到！TKS！