delphi stringGrid
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了delphi stringGrid相关的知识,希望对你有一定的参考价值。
我有两个按钮,我想问在stringGrid中的单元格,我想的是触发一个按钮时,这个单元格不能编辑,触发另一个按钮时,单元格能编辑,这个怎么做啊。谢谢。
提问人的追问 2010-05-13 16:29 点按钮之后 ,如果是要第一行 第一列那个单元格不能编辑,这又怎么写呢?可以在StringGrid 的OnSelectCell事件根据�0�2ACol,ARow: Integer;来处理
比如:你要求的第一行第一列if (Acol=1) and (arow=1) thenStringGrid1.Options:= StringGrid1.Options-[goediting]//不能编辑
else
StringGrid1.Options:= StringGrid1.Options+[goediting];//能编辑 参考技术A StringGrid1.Options:= StringGrid1.Options-[goediting];//不能编辑StringGrid1.Options:= StringGrid1.Options+[goediting];//能编辑 参考技术B 用TMS Advstringgrid吧,能轻松实现
delphi中STRINGGRID的用法
for I := 1 to Screen.Fonts.Count do
begin
StringGrid1.Cells [I, 0] := Screen.Fonts.Strings [I-1];
StringGrid1.Canvas.Font.Name := StringGrid1.Cells [I, 0];
StringGrid1.Canvas.Font.Size := 32;
StringGrid1.ColWidths [I] :=
StringGrid1.Canvas.TextWidth (’AaBbYyZz’);
end;
能给解释下各句的意思吗??小弟万分感激``
type
TExCell = class(TStringGrid)
public
procedure DeleteRow(ARow: Longint);
procedure DeleteColumn(ACol: Longint);
procedure InsertRow(ARow: LongInt);
procedure InsertColumn(ACol: LongInt);
end;
procedure TExCell.InsertColumn(ACol: Integer);
begin
ColCount :=ColCount +1;
MoveColumn(ColCount-1, ACol);
end;
procedure TExCell.InsertRow(ARow: Integer);
begin
RowCount :=RowCount +1;
MoveRow(RowCount-1, ARow);
end;
procedure TExCell.DeleteColumn(ACol: Longint);
begin
MoveColumn(ACol, ColCount -1);
ColCount := ColCount - 1;
end;
procedure TExCell.DeleteRow(ARow: Longint);
begin
MoveRow(ARow, RowCount - 1);
RowCount := RowCount - 1;
end. 参考技术B 1,列举出系统所有的字体并显示在第一列
2,设置Canvas的字体名称跟该cell的内容相同
3,设置Canvas的字体大小
4,设置cell的宽度
5,设置Canvas的字宽 参考技术C 遍历可获取的字体,在表格的第一列,用该字体的样式,32号字体,显示字体的名称,并设置列的宽度
以上是关于delphi stringGrid的主要内容,如果未能解决你的问题,请参考以下文章