高分求解[如何在StringGrid中加上行字段和列行号]
最好加上实例代码
可以发到
最好加上实例代码
可以发到
解决方案 »
- 问下大家,我一个从主界面调用子窗体的MediaPlayer1,和子窗体自己调用MediaPlayer1怎么不是现一个
- 共享内存(CreateFileMapping,OpenFileMapping) 如何传递 结果集?
- 如何设计一个类管理一个字段数量可能会发生改变的表格
- 日期查询
- 简单问题,可就是不知道是怎么回事.
- 如何确定一个控件?getwindow?getwindowlong?
- 打造Delphi论坛自己的文档收集器
- 高手帮忙,这有什么错呢???
- 关于IP地址输入框的问题!!!
- 怎么把degrid中显示的数据导出成txt文件
- 自己写的直接引用读取注册表的单元,不知道有用没。
- delphi中 怎么获取dbgrid的数据的个数?
var
i:integer;
begin
for i:=1 to StringGrid1.RowCount-1 do
StringGrid1.Cells[0,i]:=inttostr(i);
for i:=1 to StringGrid1.ColCount-1 do
StringGrid1.Cells[i,0]:=inttostr(i);
end;
可以这样:procedure TForm1.FormCreate(Sender: TObject);
var
C,R: Integer;
begin
for C := 1 to StringGrid1.ColCount-1 do
StringGrid1.Cells[0, C] := InttoStr(C);
for R := 1 to StringGrid1.RowCount-1 do
StringGrid1.Cells[R, 0] := InttoStr(R);
end;
但是,要注意,每当行列改变后,都要执行一下上面这段代码。也可以象下面这样,但会导致闪烁。因此,建议用上面的代码。
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ACol = 0) and (ARow = 0) then Exit;
if ACol = 0 then
TStringGrid(Sender).Cells[ACol, ARow] := InttoStr(ARow);
if ARow = 0 then
TStringGrid(Sender).Cells[ACol, ARow] := InttoStr(ACol);
end;
[商品信息]而返回到这个
stringgrid控件中
[商品信息]而返回到这个
stringgrid控件中
实例:
点击[stringgrid]第一行后显示所有的用户信息,但是用户只能确定一个
所以在[stringgrid]的第一行显示用户信息中的所有信息:姓名,性别,年龄,地址
点击[stringgrid]第二行后显示所有的用户信息,但是用户只能确定一个
所以在[stringgrid]的第二行显示用户信息中的所有信息:姓名,性别,年龄,地址
=================================================================
等等,最后点击[保存]将所有信息再保存到另一个[综合信息]中
stringgrid我不太熟悉
双击这个控件后,实现将ACCESS表中的指定用户名中的选中那个显示到StringGrid
等待中.................