新年第一问，如何将STRINGGRID的选择的虚线框去掉~

supervisors 2007-02-26 12:08:25

只留一个蓝色的条

...全文

130 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

78 2012-06-25

打赏
举报

回复

我也遇上这个问题了，我来顶一下。

这是给StringGrid的某一列添加组合框的完整示例。不过这里的StringGrid是raize控件包的，自带的StringGrid也是可以用的，只需要替换一下控件和改一下控件的名字。

给StringGrid添加复选框的完整示例

使用stringgrid实现行多选, 然后通过拖拽移动选择行位置按住ctrl可以多选不连续的行

Delphi将Stringgrid指定行添加到Memo控件中，选中StringGrid中的行，点击右下角的“添加”按钮，即可将选中的StringGrid行数据添加到下边的Memo控件中显示。部分源代码如下：　　procedure TForm1.FormCreate(Sender: TObject); 　　begin 　　 StringGrid1.Cells[0,0] := '商品编号'; 　　 StringGrid1.Cells[0,1] := 'cc10011'; 　　 StringGrid1.Cells[0,2] := 'cc10012'; 　　 StringGrid1.Cells[0,3] := 'cc10013'; 　　 StringGrid1.Cells[0,4] := 'cc10014'; 　　 StringGrid1.Cells[1,0] := '商品名称'; 　　 StringGrid1.Cells[1,1] := '苹果'; 　　 StringGrid1.Cells[1,2] := '香蕉'; 　　 StringGrid1.Cells[1,3] := '西红柿'; 　　 StringGrid1.Cells[1,4] := '西瓜'; 　　 StringGrid1.Cells[2,0] := '商品数量'; 　　 StringGrid1.Cells[2,1] := '200'; 　　 StringGrid1.Cells[2,2] := '150'; 　　 StringGrid1.Cells[2,3] := '300'; 　　 StringGrid1.Cells[2,4] := '130'; 　　 StringGrid1.Cells[3,0] := '商品金额'; 　　 StringGrid1.Cells[3,1] := '$5.00'; 　　 StringGrid1.Cells[3,2] := '$4.50'; 　　 StringGrid1.Cells[3,3] := '$1.50'; 　　 StringGrid1.Cells[3,4] := '$6.00'; 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 i,col,row: Integer; 　　begin 　　 row := StringGrid1.Row; 　　 for col := 0 to StringGrid1.ColCount - 1 do 　　 Memo1.Lines.Add(StringGrid1.Cells[col,row]); 　　end;

通过delphi6编写的代码该stringgrid的单元格具有check（复选框的功能）

5,392

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章