5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
kyqSimon 2003-06-27
- 打赏
- 举报
在 StringGrid1SelectCell 事件中，指定某一列，把參數中的CanSelect := False 就可以了！
foundAnswer 2003-06-27
- 打赏
- 举报
是不是不把焦点移到其它控件，它还是可以被编辑，所以只能用这种方法。
things 2003-06-27
- 打赏
- 举报
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
with StringGrid1 do
begin
EditorMode := not (ACol = 4); //第五列不能编辑
if not EditorMode then
begin
showmessage('该单元格不能被编辑');
Button1.SetFocus; //将焦点移到其它控件
end;
CanSelect := EditorMode;
end;
end;
ARow: Integer; var CanSelect: Boolean);
begin
with StringGrid1 do
begin
EditorMode := not (ACol = 4); //第五列不能编辑
if not EditorMode then
begin
showmessage('该单元格不能被编辑');
Button1.SetFocus; //将焦点移到其它控件
end;
CanSelect := EditorMode;
end;
end;
foundAnswer 2003-06-27
- 打赏
- 举报
请大家看看我的问题呀
foundAnswer 2003-06-27
- 打赏
- 举报
CanSelect := False的方法非常好，那么怎么能够同时把这一格的颜色变灰呢？谢谢。
