Delphi判断单元格是否被选中

最新推荐文章于 2020-11-04 10:35:07 发布

Hecks

最新推荐文章于 2020-11-04 10:35:07 发布

阅读量684

点赞数

分类专栏：唧唧歪歪文章标签： Delphi

唧唧歪歪专栏收录该内容

12 篇文章

订阅专栏

function IsCellSelected(StringGrid : TStringGrid; X, Y : LONGINT): BOOLEAN; 
begin 
 Result := false; 
 try 
  if (X >= StringGrid.Selection.Left) and (X <= StringGrid.Selection.Right) and (Y >= StringGrid.Selection.Top) and (Y <= StringGrid.Selection.Bottom) 
  then 
  Result := true; 
 except 
 end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if IsCellSelected(Stringgrid1,2,2) then 
  begin 
  ShowMessage('Cell 2,2 is selected'); 
  end; 
end;