判断worksheetgrid中某单元格是否是合并单元格的一部分

单击grid，判断单击位置是否位于合并单元格中。

uses
  fpsutils, fpsTypes;  

。。。。。。
var
  cell: PCell;   
  r, c: Cardinal;    
begin

  cell := grid.Worksheet.FindCell(SourceRow, SourceCol);
  if grid.Worksheet.IsMerged(cell) then
  begin
    memo1.append('选中了合并的单元格');
    memo1.append('pppp---- SourceCol:' + intToStr(SourceCol) + '  SourceRow:' + intToStr(SourceRow));

  end;  

{
  mouseCell := grid.MouseToCell(Point(X, Y));
  c := grid.GetWorksheetCol(mouseCell.X);
  r := grid.GetWorksheetRow(mouseCell.Y);
  memo1.append('pppp---- c:' + intToStr(c) + '  r:' + intToStr(r));

  if grid.Worksheet.IsMerged(grid.Worksheet.FindCell(r, c)) then
  begin
    memo1.append('击中了合并的单元格');
  end; 
}