注册 登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

成功源于细节

梦想、奋斗、收获

 
 
 

日志

 
 
 
 

delphi用按钮删除stringgrid中的用鼠标选中的行  

2011-05-27 11:33:41|  分类: delphi |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
首先修改属性:StringGrid1->options->goRowSelect   设为True;  
   
  //删除行  
  procedure   DeleteStringGridRow(vRow:   Integer;   StringGrid:   TStringGrid);  
  var  
      i:   Integer;  
  begin  
      if   StringGrid.RowCount   >   vRow   then  
      begin  
          for   i   :=   vRow   to   StringGrid.RowCount   -   vRow   do  
          begin  
              StringGrid.Rows[i]   :=   StringGrid.Rows[i+1];  
          end;  
          StringGrid.RowCount   :=   StringGrid.RowCount   -   1;  
      end;  
  end;  
   
  //删除列  
  procedure   DeleteStringGridCol(vCol:   Integer;   StringGrid:   TStringGrid);  
  var  
      i:   Integer;  
  begin  
      if   StringGrid.ColCount   >   vCol   then  
      begin  
          for   i   :=   vCol   to   StringGrid.colcount   -   vCol   do  
          begin  
              StringGrid.cols[i]   :=   StringGrid.cols[i+1];  
          end;  
          StringGrid.colcount   :=   StringGrid.colcount   -   1;  
      end;  
  end;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      vSelRow:   Integer;  
  begin  
      //得到所选行  
      vSelRow   :=   StringGrid1.Row;  
      //删除所选行  
      DeleteStringGridrow(vSelRow,   StringGrid1);  
  end;
  评论这张
 
阅读(3127)| 评论(1)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018