delphi stringgrid 点击事件问题

Question

stringgrid 属性fixedCols值为1，fixedRows值为1，RowCount为2。 
stringgrid.cells[0,1]:='+'; 
问题是当我用鼠标击点到stringgrid.cells[0,1]单元格位置时弹出showmessages“加”并增行。请高手写一写这个代码。

Answer 1

StringGrid1.RowCount:= StringGrid1.RowCount+1;
你要找的 就是 click 的对象就可以了.

Answer 2

 
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (X<=StringGrid1.ColWidths[0]) and (y<(StringGrid1.RowHeights[0]+StringGrid1.RowHeights[0])) and        
    (y>StringGrid1.RowHeights[0]) then
    StringGrid1.RowCount:= StringGrid1.RowCount+1; 
end;

Answer 3

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (X<=StringGrid1.ColWidths[0]) and (y<(StringGrid1.RowHeights[0]+StringGrid1.RowHeights[0])) and        
    (y>StringGrid1.RowHeights[0]) then //把位置定在[0,1]格里
  begin
    showmessage('给我加');   //感觉有点傻傻的 呵呵
    StringGrid1.RowCount:= StringGrid1.RowCount+1; 
  end;
end;