Delphi关于StringGrid的公用模块

最新推荐文章于 2021-12-16 14:44:05 发布
最新推荐文章于 2021-12-16 14:44:05 发布
阅读量827 收藏 1
点赞数
分类专栏： Delphi
unit SGridFunction;
{*******************************************
模块名称：StringGrid操作函数模块
编写者：Tony
开始日期：2006年12月05日
版本号：v1.0.7
********************************************}
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,SConnect,
Dialogs, Global, Grids, DBGrids, DB, DBClient, WinSkinData, StdCtrls,
Buttons, ExtCtrls, ComCtrls, ComObj, Clipbrd, ADODB;
//成功提示框
//AMsg: 成功提示信息
procedure SuccessMsgbox(AMsg: String );
//错误提示框
//AMsg: 错误提示信息
procedure ErrorMsgbox(AMsg: String );
//询问提示框
//strMsg:询问信息
function AskMsgbox(AMsg: String ): Boolean ;
//信息提示框
//AMsg: 提示信息
procedure InfoMsgbox(AMsg: String );
//导出数据到Excel
//ASGrid:需要导出的StringGrid
//ExcelModalPath: 报表模版全路径，为空则新建工作簿
//ExcelFileName: Excel文件的默认文件名
//AGridStartCol, AGridStartRow: StringGrid的起始列和行,从0开始
//AExcelStartCol, AExcelStartRow: Excel的起始列和行,从1开始
procedure ExportToExcel(ASGrid: TStringGrid; ExcelModalPath, ExcelFileName: String ;
AGridStartCol, AGridStartRow, AExcelStartCol, AExcelStartRow: Integer );
//取得某一列数据的最大长度
//ASgrid: 目标StringGrid
//ACol: 目标列,从0开始
//AStartRow: 起始行，从0开始
function GetColMaxDataLength(ASGrid: TStringGrid; ACol, AStartRow: Integer ): Integer ;
//根据数据长度自动设置指定列的列宽
//ASgrid: 目标StringGrid
//ACol: 目标列,从0开始
procedure SetOneColWidth(ASGrid: TStringGrid; ACol: Integer );
//根据数据长度自动设置全部列的列宽
//ASgrid: 目标StringGrid
procedure SetAllColWidth(ASGrid: TStringGrid);
//显示ClientDataSet中的数据
//ASgrid: 目标StringGrid
//ACDSet: 包含数据的ClientDataSet
//AGridStartCol, AGridStartRow: StringGrid的起始列和行,从0开始
procedure ShowClientDataSetData(ASGrid: TStringGrid; ACDSet: TClientDataSet;
AGridStartCol, AGridStartRow: Integer );
//显示ADOQuery中的数据
//ASgrid: 目标StringGrid
//AQuery: 包含数据的ADOQuery
//AGridStartCol, AGridStartRow: StringGrid的起始列和行,从0开始
procedure ShowQueryData(ASGrid: TStringGrid; AQuery: TADOQuery;
AGridStartCol, AGridStartRow: Integer );
//判断是否含有数据
//true: 包含数据
//false: 不包含数据
//ASgrid: 目标StringGrid
//AStartCol, AStartRow: 起始列和行，从0开始
function HaveData(ASGrid: TStringGrid; AStartCol, AStartRow: Integer ): Boolean ;
//取得9位以内整数位数
//>=1: 该整型数的长度
//0: 空值
//-1: 长度超过9位
//ANumber: 需要判断位数的整型数
function GetIntegerNumberLength(ANumber: Integer ): Integer ;
//为指定的序号列赋值
//序号编号从1开始
//ASGrid: 目标StringGrid
//ACol: 目标列，从0开始
//AStartRow: 起始行，从0开始
procedure SetNumberFields(ASGrid: TStringGrid; ACol, AStartRow: Integer );
//设置指定的列的对齐方式为右对齐
//实现方式为在数据左边补空格，所以取数据时应注意去掉空格
//ASGrid: 目标StringGrid
//ACol: 目标列，从0开始
//AStartRow: 起始行，从0开始
procedure SetColAlignRight(ASGrid: TStringGrid; ACol, AStartRow: Integer );
//设置指定行的左边距
//ASGrid: 目标StringGrid
//ARow: 目标行，从0开始
procedure SetRowLeftSpace(ASGrid: TStringGrid; ARow, SpaceLength: Integer );
//设置指定行的最小右边距
//ASGrid: 目标StringGrid
//ARow: 目标行，从0开始
procedure SetRowMinRightSpace(ASGrid: TStringGrid; ARow, SpaceLength: Integer );
//设置指定行的最小边距
//ASGrid: 目标StringGrid
//ARow: 目标行，从0开始
procedure SetRowMinSpaceWidth(ASGrid: TStringGrid; ARow, SpaceLength: Integer );
//获得当前X坐标所在的列
//ASGrid: 目标StringGrid
//AX: 坐标的X值
function GetColByCX(ASGrid: TStringGrid; AX: Integer ): Integer ;
//获得当前Y坐标所在的行
//ASGrid: 目标StringGrid
//AY: 坐标的Y值
function GetRowByCY(ASGrid: TStringGrid; AY: Integer ): Integer ;
//获得当前坐标所处的单元格的行列值
//ASGrid: 目标StringGrid
//AX, AY: 坐标的X，Y值
//ACol, ARow: 单元格的列，行索引，从0开始
procedure GetCellByCoordinate(ASGrid: TStringGrid; AX, AY: Integer ;
out ACol, ARow: Integer );
//填充空的单元格为指定值
//ASGrid: 目标StringGrid
//AStartCol, AStartRow: 开始列和行，从0开始
//AEndCol, AEndRow: 结束列和行
//AValue: 填充值
procedure SetSpaceCells(ASGrid: TStringGrid; AStartCol, AStartRow,
AEndCol, AEndRow: Integer ; AValue: String );
implementation
//----------------------------------------------------------------------------//
//成功提示框
//----------------------------------------------------------------------------//
procedure SuccessMsgbox(AMsg: String );
begin
Application . MessageBox( Pchar (AMsg), '完成' , MB_ICONINFORMATION + MB_OK);
end ;
//----------------------------------------------------------------------------//
//错误提示框
//----------------------------------------------------------------------------//
procedure ErrorMsgbox(AMsg: String );
begin
Application . MessageBox( Pchar (AMsg), '错误' , MB_ICONSTOP + MB_OK);
end ;
//----------------------------------------------------------------------------//
//询问提示框
//----------------------------------------------------------------------------//
function AskMsgbox(AMsg: String ): Boolean ;
begin
if Application . MessageBox( Pchar (AMsg), '确认' ,
MB_ICONQUESTION + MB_YESNO) = IDYES then
begin
result := true ;
end
else begin
result := false ;
end ;
end ;
//----------------------------------------------------------------------------//
//消息提示框
//----------------------------------------------------------------------------//
procedure InfoMsgbox(AMsg: String );
begin
Application . MessageBox( Pchar (AMsg), '提示' , MB_ICONINFORMATION + MB_OK);
end ;
//----------------------------------------------------------------------------//
//导出数据到Excel
//----------------------------------------------------------------------------//
procedure ExportToExcel(ASGrid: TStringGrid; ExcelModalPath, ExcelFileName: String ;
AGridStartCol, AGridStartRow, AExcelStartCol, AExcelStartRow: Integer );
var
ExcelApp: Variant;
ColIndex, RowIndex: Integer ;
OneRowData: String ; //单行数据
DataList: TStringList; //所有数据
SaveDlg: TSaveDialog; //保存对话框
SaveExcelFilePath: String ; //Excel文件的保存路径
begin
try
//没有数据时直接退出
if not HaveData(ASGrid, AGridStartCol, AGridStartRow) then
begin
InfoMsgBox( '没有数据需要导出。' );
exit;
end ;
//选择保存路径
try
SaveDlg := TSaveDialog . Create(ASGrid); //创建保存窗口对象
SaveDlg . InitialDir := ExtractFilePath(Application . ExeName); //文件保存在当前目录
SaveDlg . Filter := 'Excel Files(*.xls)| *.xls' ; //文件类型过滤
SaveDlg . FileName := ExcelFileName + VarToStr(date); //定义默认文件名
if SaveDlg . Execute then
begin
SaveExcelFilePath := SaveDlg . FileName; //保存文件路径
end
else begin
exit; //放弃导出
end ;
finally
SaveDlg . Free; //释放对象
end ;
//创建Excel对象
try
ExcelApp := CreateOleObject( 'Excel.Application' ); //创建新Excel对象
except
ErrorMsgBox( '请确认您的机器已经安装 Microsoft Excel 。' );
Exit;
end ;
try
//打开Excel工作簿
try
//打开报表模版
if (excelModalPath <> null) and (excelModalPath <> '' ) then
begin
ExcelApp . WorkBooks . Open(ExcelModalPath);
end
//添加新工作簿
else begin
ExcelApp . WorkBooks . Add;
//设置列宽
for ColIndex := 0 to ASGrid . ColCount - AGridStartCol - 1 do
begin
//此处不能使用ASGrid.ColWidths[AGridStartCol + ColIndex];
ExcelApp . ActiveSheet . Columns[AExcelStartCol + ColIndex].ColumnWidth
:= GetColMaxDataLength(ASGrid, AGridStartCol + ColIndex, AGridStartRow);
end ;
//数字 NumberFormatLocal = "0.00_ "
//日期 NumberFormatLocal = "yyyy-m-d"
//时间 NumberFormatLocal = "[$-F400]h:mm:ss AM/PM"
//文本 NumberFormatLocal = "@"
ExcelApp . Cells . NumberFormatLocal := '@' ; //设置单元格为文本格式
end ;
ExcelApp . WorkSheets[ 1 ].Activate; //设置第1个工作表为活动工作表
ExcelApp . Cells . Item[AExcelStartRow, AExcelStartCol].Select; //设定Excel起始单元格
except
ErrorMsgBox( '无法打开报表模版：' + # 13 + ExcelModalPath); //#13为回车换行
exit;
end ;
try
//通过剪切板导出数据
try
//初始化DataList
DataList := TStringList . Create;
DataList . Clear;
//将数据保存到DataList
with ASGrid do
begin
//行
for RowIndex := AGridStartRow to RowCount - 1 do
begin
OneRowData := '' ;
//列
for ColIndex := AGridStartCol to ColCount - 1 do
begin
OneRowData := OneRowData + Trim(Cells[ColIndex, RowIndex]) + # 9 ; //#9为制表符
end ;
DataList . Add(OneRowData); //将该行数据添加到DataList
end ;
end ;
ClipBoard . AsText := DataList . Text; //将DataList中的数据拷贝到剪切板
ExcelApp . ActiveSheet . Paste; //将剪切板中的数据拷贝到Excel
finally
DataList . Free; //释放DataList
ClipBoard . Clear; //清空剪切板
end ;
//保存Excel文件
ExcelApp . ActiveWorkbook . SaveAs(SaveExcelFilePath); //另存为到指定目录
SuccessMsgBox( '成功将文件保存到：' + # 13 + SaveExcelFilePath); //保存成功
finally
ExcelApp . DisplayAlerts := false ; //不弹出保存提示对话框
ExcelApp . WorkBooks . Close; //关闭工作簿
end ;
finally
ExcelApp . Quit; //关闭Excel进程
ExcelApp:= Unassigned; //释放ExcelApp
end ;
except
On e: Exception do
begin
ErrorMsgbox(e . Message);
end ;
end ;
end ;
//----------------------------------------------------------------------------//
//取得某一列数据的最大长度
//----------------------------------------------------------------------------//
function GetColMaxDataLength(ASGrid: TStringGrid; ACol, AStartRow: Integer ): Integer ;
var
ColIndex, RowIndex: Integer ;
MaxColLength: Integer ; //列数据的最大长度
begin
MaxColLength := 0 ;
with ASGrid do
begin
//取得列数据的最大长度
for RowIndex := AStartRow to RowCount - 1 do
begin
if length(Cells[ACol, RowIndex]) > MaxColLength then
begin
MaxColLength:= length(Cells[ACol, RowIndex]);
end ;
end ;
end ;
result := MaxColLength;
end ;
//----------------------------------------------------------------------------//
//根据数据长度自动设置指定列的列宽
//----------------------------------------------------------------------------//
procedure SetOneColWidth(ASGrid: TStringGrid; ACol: Integer );
var
OneCharPixel: Integer ; //一个字符所占的像素数
RightSpaceWidth: Integer ; //右边距空隙
begin
RightSpaceWidth := 3 ; //设置为3达到和左边距一致的效果
OneCharPixel := 6 ; //6对应9号字[*此处最好写成一个根据字号获得像素值的函数*]
ASGrid . ColWidths[ACol] := GetColMaxDataLength(ASGrid, ACol, 0 ) * OneCharPixel
+ RightSpaceWidth;
end ;
//----------------------------------------------------------------------------//
//根据数据长度自动设置全部列的列宽
//----------------------------------------------------------------------------//
procedure SetAllColWidth(ASGrid: TStringGrid);
var
ColIndex: Integer ; //需要设置的列
begin
for ColIndex := 0 to ASGrid . ColCount - 1 do
begin
SetOneColWidth(ASGrid, ColIndex);
end ;
end ;
//----------------------------------------------------------------------------//
//显示ClientDataSet中的数据
//----------------------------------------------------------------------------//
procedure ShowClientDataSetData(ASGrid: TStringGrid; ACDSet: TClientDataSet;
AGridStartCol, AGridStartRow: Integer );
var
ColIndex: Integer ;
RowIndex: Integer ;
begin
try
with ASGrid do
begin
//没有记录时,清空StringGrid并返回
if ACDSet . RecordCount <= 0 then
begin
RowCount := 2 ;
for ColIndex := 0 to ColCount - 1 do
begin
Cells[ColIndex, 1 ] := '' ;
end ;
exit;
end ;
RowCount := AGridStartRow + ACDSet . RecordCount; //StringGrid行数
ColCount := AGridStartCol + ACDSet . FieldCount; //StringGrid列数
RowIndex := AGridStartRow; //当前行为起始行
while not ACDSet . Eof do
begin
//显示数据
for ColIndex := AGridStartCol to ColCount - 1 do
begin
Cells[ColIndex, RowIndex]
:= ACDSet . Fields . Fields[ColIndex - AGridStartCol].AsString
end ;
//转到下一行
RowIndex := RowIndex + 1 ;
ACDSet . Next;
end ;
end ;
except
On e: Exception do
begin
ErrorMsgBox(e . Message);
end ;
end ;
end ;
//----------------------------------------------------------------------------//
//显示ADOQuery中的数据
//----------------------------------------------------------------------------//
procedure ShowQueryData(ASGrid: TStringGrid; AQuery: TADOQuery;
AGridStartCol, AGridStartRow: Integer );
var
ColIndex: Integer ;
RowIndex: Integer ;
begin
try
with ASGrid do
begin
//没有记录时,清空StringGrid并返回
if AQuery . RecordCount <= 0 then
begin
RowCount := 2 ;
for ColIndex := 0 to ColCount - 1 do
begin
Cells[ColIndex, 1 ] := '' ;
end ;
exit;
end ;
RowCount := AGridStartRow + AQuery . RecordCount; //StringGrid行数
ColCount := AGridStartCol + AQuery . FieldCount; //StringGrid列数
RowIndex := AGridStartRow; //当前行为起始行
while not AQuery . Eof do
begin
//显示数据
for ColIndex := AGridStartCol to ColCount - 1 do
begin
Cells[ColIndex, RowIndex]
:= AQuery . Fields . Fields[ColIndex - AGridStartCol].AsString
end ;
//转到下一行
RowIndex := RowIndex + 1 ;
AQuery . Next;
end ;
end ;
except
On e: Exception do
begin
ErrorMsgBox(e . Message);
end ;
end ;
end ;
//----------------------------------------------------------------------------//
//判断是否含有数据
//----------------------------------------------------------------------------//
function HaveData(ASGrid: TStringGrid; AStartCol, AStartRow: Integer ): Boolean ;
var
ColIndex, RowIndex: Integer ;
begin
with ASgrid do
begin
for ColIndex := AStartCol to ColCount - 1 do
begin
for RowIndex := AStartRow to RowCount - 1 do
begin
//包含数据，返回true
if Cells[ColIndex, RowIndex] <> '' then
begin
result := true ;
exit;
end ;
end ;
end ;
end ;
//没有数据，返回false
result := false ;
end ;
//----------------------------------------------------------------------------//
//取得9位以内整数位数
//----------------------------------------------------------------------------//
function GetIntegerNumberLength(ANumber: Integer ): Integer ;
var
IsNegativeNumber: Boolean ; //参数的正负,负数为true
LoopIndex: Integer ; //循环变量
ComporeNumber: Integer ; //用于比较的数
NumberLength: Integer ; //返回值，长度大于10返回-1
begin
if ANumber = null then
begin
result := 0 ; //空值返回0
exit;
end ;
//判断参数的正负
if ANumber < 0 then
begin
ANumber := 0 - ANumber; //转换成正数用于计算长度
IsNegativeNumber := true ; //是负数
end
else begin
if ANumber = 0 then
begin
result := 1 ; //是0，直接返回1
exit;
end ;
IsNegativeNumber := false ; //是正数
end ;
//开始比较
ComporeNumber:= 10 ;
for LoopIndex:= 1 to 9 do
begin
//长度符合要求
if (ComporeNumber div ANumber) > 0 then
begin
//得到长度
if ComporeNumber = ANumber then NumberLength := LoopIndex + 1
else NumberLength := LoopIndex;
//如果是负数，则长度加1，即包含负号
if IsNegativeNumber then result:= NumberLength + 1
else result := NumberLength;
exit;
end ;
//增大1位继续比较
ComporeNumber := ComporeNumber * 10 ;
continue;
end ;
result := - 1 ; //长度大于9，返回-1
end ;
//----------------------------------------------------------------------------//
//为指定的序号列赋值
//----------------------------------------------------------------------------//
procedure SetNumberFields(ASGrid: TStringGrid; ACol, AStartRow: Integer );
var
RowIndex: Integer ; //当前序号
begin
with ASGrid do
begin
for RowIndex := 1 to RowCount - AStartRow do
begin
//添加序号
Cells[ACol, AStartRow + RowIndex - 1 ] := VarToStr(RowIndex);
end ;
end ;
end ;
//----------------------------------------------------------------------------//
//设置指定的列的对齐方式为右对齐
//----------------------------------------------------------------------------//
procedure SetColAlignRight(ASGrid: TStringGrid; ACol, AStartRow: Integer );
var
RowIndex: Integer ;
MaxDataLength: Integer ; //该列最大的数据长度
begin
MaxDataLength := GetColMaxDataLength(ASGrid, ACol, 0 ); //取得该列最大的数据长度
with ASGrid do
begin
for RowIndex := AStartRow to RowCount - 1 do
begin
while length(Cells[ACol, RowIndex]) < MaxDataLength do
begin
Cells[ACol, RowIndex] := ' ' + Cells[ACol, RowIndex]; //在前面补空格
end ;
end ;
end ;
end ;
//----------------------------------------------------------------------------//
//设置指定行的左边距
//----------------------------------------------------------------------------//
procedure SetRowLeftSpace(ASGrid: TStringGrid; ARow, SpaceLength: Integer );
var
ColIndex, LoopIndex: Integer ;
begin
with ASGrid do
begin
for ColIndex := 0 to ColCount - 1 do
begin
Cells[ColIndex, ARow] := TrimLeft(Cells[ColIndex, ARow]); //去掉左边空格
for LoopIndex := 1 to SpaceLength do
begin
Cells[ColIndex, ARow] := ' ' + Cells[ColIndex, ARow]; //在左边补空格
end ;
end ;
end ;
end ;
//----------------------------------------------------------------------------//
//设置指定行的最小右边距
//----------------------------------------------------------------------------//
procedure SetRowMinRightSpace(ASGrid: TStringGrid; ARow, SpaceLength: Integer );
var
ColIndex, LoopIndex: Integer ;
begin
with ASGrid do
begin
for ColIndex := 0 to ColCount - 1 do
begin
Cells[ColIndex, ARow] := TrimRight(Cells[ColIndex, ARow]); //去掉右边空格
for LoopIndex := 1 to SpaceLength do
begin
Cells[ColIndex, ARow] := Cells[ColIndex, ARow] + ' ' ; //在右边补空格
end ;
end ;
end ;
end ;
//----------------------------------------------------------------------------//
//设置指定行的最小边距
//----------------------------------------------------------------------------//
procedure SetRowMinSpaceWidth(ASGrid: TStringGrid; ARow, SpaceLength: Integer );
var
ColIndex, LoopIndex: Integer ;
begin
with ASGrid do
begin
for ColIndex := 0 to ColCount - 1 do
begin
Cells[ColIndex, ARow] := Trim(Cells[ColIndex, ARow]); //去掉两边空格
for LoopIndex := 1 to SpaceLength do
begin
Cells[ColIndex, ARow] := ' ' + Cells[ColIndex, ARow] + ' ' ; //在两边补空格
end ;
end ;
end ;
end ;
//----------------------------------------------------------------------------//
//获得当前X坐标所在的列
//----------------------------------------------------------------------------//
function GetColByCX(ASGrid: TStringGrid; AX: Integer ): Integer ;
var
ColIndex: Integer ;
CurCellRect: TRect; //当前列的矩形区域
begin
with ASGrid do
begin
for ColIndex := 0 to ColCount - 2 do
begin
CurCellRect := CellRect(ColIndex, 0 );
//当前列被隐藏，继续判断下一列
if CurCellRect . Left = CurCellRect . Right then continue;
//X坐标在当前列的范围内
if (AX >= CurCellRect . Left) and (AX < CurCellRect . Right) then
begin
result := ColIndex;
exit;
end ;
end ;
result := ColCount - 1 ; //返回最后一列的索引
end ;
end ;
//----------------------------------------------------------------------------//
//获得当前Y坐标所在的行
//----------------------------------------------------------------------------//
function GetRowByCY(ASGrid: TStringGrid; AY: Integer ): Integer ;
var
RowIndex: Integer ;
CurCellRect: TRect; //当前行的矩形区域
begin
with ASGrid do
begin
for RowIndex := 0 to RowCount - 2 do
begin
CurCellRect := CellRect( 0 , RowIndex);
//当前行被隐藏，继续判断下一行
if CurCellRect . Top = CurCellRect . Bottom then continue;
//Y坐标在当前行的范围内
if (AY > CurCellRect . Top) and (AY < CurCellRect . Bottom) then
begin
result := RowIndex;
exit;
end ;
end ;
result := RowCount - 1 ; //返回最后一行的索引
end ;
end ;
//----------------------------------------------------------------------------//
//获得当前坐标所处的单元格的行列值
//----------------------------------------------------------------------------//
procedure GetCellByCoordinate(ASGrid: TStringGrid; AX, AY: Integer ;
out ACol, ARow: Integer );
begin
ACol := GetColByCX(ASGrid, AX); //取得列索引
ARow := GetRowByCY(ASGrid, AY); //取得行索引
end ;
//----------------------------------------------------------------------------//
//填充空的单元格为指定值
//----------------------------------------------------------------------------//
procedure SetSpaceCells(ASGrid: TStringGrid; AStartCol, AStartRow,
AEndCol, AEndRow: Integer ; AValue: String );
var
ColIndex, RowIndex: Integer ;
begin
with ASGrid do
begin
for ColIndex := AStartCol to AEndCol do
begin
for RowIndex := AStartRow to AEndRow do
begin
//单元格为空（不含空格）时填充
if Trim(Cells[ColIndex, RowIndex]) = '' then
begin
Cells[ColIndex, RowIndex] := AValue;
end ;
end ;
end ;
end ;
end ;
end .
appleric
关注
专栏目录
delphi StringGrid功能程序
06-24
实现了使用StringGrid各种功能的代码例子，比如嵌套日期控件，对它的 属性的灵活运用等！
TTXStringGrid组件V1.1.64源码包－delphi中的扩展StringGrid
11-26
delphi中的扩展StringGrid, V1.1.64版本 完整组件安装包,带完整源码 支持列设置,包括字体,颜色,居中,列宽,visible,readonly, 内置下拉列表, 右键菜单; 增加一系列事件,如CellClick等. V1.1新增功能：增加对单元格的个性化设置，效果和列个性化设置类似。 Lonefox版权所有. 技术交流 http://blog.csdn.net/boythl boythl#163.com 发布网址：http://blog.csdn.net/boythl/archive/2008/11/25/3372110.aspx
Delphi关于StringGrid的公用模块[转]
weixin_30566149的博客
04-02 168
unit SGridFunction; {******************************************* 模块名称：StringGrid操作函数模块 编写者：Tony 开始日期：2006年12月05日 版本号：v1.0.7 ********************************************} inter...
Delphi练习——StringGrid的使用（九九乘法表）
易元——美好吧
03-14 1309
PAS： unit U_StringGrid; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,Grids; type TfrmEinmaleins = class(TForm) lblEinmaleins: TLabe
Delphi在StringGrid单元格中设置只读属性
05-18
摘要:Delphi源码,界面编程,StringGrid　Delphi在StringGrid中设置只读栏，Delphi7用户的朋友，可直接打开DPR文件编译生成EXE,运行EXE文件才能看到只读栏效果，如上图示，可设置StringGrid的某个单元格属性是只读的，...
Delphi中StringGrid动态绑定下拉列表
10-09
Delphi 中 StringGrid 动态绑定下拉列表 Delphi 中的 StringGrid 控件不同于 DbGrid 控件，它不具有内置的 PickList 属性来显示下拉列表。但是，我们可以通过编程的方式来实现 StringGrid 中的下拉列表绑定。下面将...
Delphi为StringGrid控件增加Combobox下拉框.rar
07-10
Delphi为StringGrid网格显示控件中增加下拉框功能，也就是在Grid控件中添加Combobox下拉列表的功能，在任意列显示一个ComboBox功能，如演示截图所示，可大大扩展Grid的功能。生成列表： 　with Sender as TComboBox ...
Delphi7StringGrid内动态添加ComBoBox的值
08-18
在Delphi编程环境中，StringGrid是一种非常常用的控件，它用于显示二维表格数据。然而，有时我们可能需要在特定单元格内嵌入更复杂的控件，比如ComboBox，以提供下拉选择的功能。本篇文章将详细讲解如何在Delphi 7的...
Delphi使StringGrid中的每一格的颜色各不相同
05-14
在Delphi编程中，StringGrid是一种非常常用的控件，它用于显示二维表格数据，类似于Excel中的单元格。在很多情况下，我们可能需要根据数据的特定条件或者用户交互来改变StringGrid中每个单元格的背景颜色或字体颜色...
TTXStringGrid V1.0.38 - delphi的扩展StringGrid
10-07
delphi中的扩展StringGrid, V1.0.38版本 完整组件安装包,带完整源码 支持列设置,包括字体,颜色,居中,列宽,visible,readonly, 内置下拉列表, 右键菜单; 增加一系列事件,如CellClick等. 对单元格的个性化设置支持正在后续开发. 本人版权所有. 技术交流 http://blog.csdn.net/boythl
Delphi StringGrid文字居中,Titile字体变大,Cell添加CheckBox
07-25
Delphi StringGrid文字居中 Title文字变大，字体颜色改变，选中行颜色的改变 在Cell中添加CheckBox控件 点击实现CheckBox Checked true false
delphi_StringGrid使用全书
05-15
delphi_StringGrid使用全书
delphi，stringGrid选中显示对号，否则不显示，并居中（测试成功）
06-02
delphi，stringGrid选中显示对号，否则不显示，并居中（测试成功）
delphi的StringGrid控件模仿Excel
12-27
delphi的StringGrid控件模仿Excel中的Up,down,left,right,enter的方法
Delphi StringGrid常用属性和常用操作(示例代码)
fangyuan621的专栏
12-16 5152
作者：敲代码的小女孩 简介这篇文章主要介绍了Delphi StringGrid常用属性和常用操作(示例代码)以及相关的经验技巧，文章约10654字，浏览量526，点赞数2，值得参考！ StringGrid组件用于建立显示字符串的网格，与电子表格相似。它可使表格中的字符串和相关对象操作简单化。StringGrid组件提供了许多可控制网格外观念的属性，以及利用表格的结构响应用户操作的事件和方法。StringGrid具有关联对象与网格中的每个字符串的作用，这些对象为用户封装了字符串表示的信息或行为。 ..
Delphi StringGrid 实例2：1、获取 StringGrid 的行数、列数； 2、给单元赋值
fangyuan621的专栏
12-16 1151
StringGrid 实例2：1、获取 StringGrid 的行数、列数; 2、给单元赋值. 实例2： 本例功能: 1、获取 StringGrid 的行数、列数; 2、给单元赋值. 运行效果图: //示例代码: //获取总列数，和总行数 procedure TForm12.Button1Click(Sender: TObject); var cCount,rCount: Integer; begin cCount := St...
Delphi StringGrid常用属性和常用操作
热门推荐
xiongmao000738
11-26 6万+
StringGrid组件用于建立显示字符串的网格，与电子表格相似。它可使表格中的字符串和相关对象操作简单化。StringGrid组件提供了许多可控制网格外观念的属性，以及利用表格的结构响应用户操作的事件和方法。StringGrid具有关联对象与网格中的每个字符串的作用，这些对象为用户封装了字符串表示的信息或行为。   一、Delphi StringGrid控件的属性及使用说明 1、固定行及固
Delphi StringGrid控件的用法
weixin_34342578的博客
06-04 397
Delphi StringGrid控件 组件名称：StringGrid ●固定行及固定列： StringGrid.FixedCols:=固定行之数; StringGrid.FixedRows:=固定列之数; StringGrid. FixedColor:=固定行列之颜色; StringGrid.Color:=资料区之颜色; ●...
delphi 类似 stringgrid
最新发布
09-22
Delphi 是一种编程语言和开发环境，它提供了一种类似于 StringGrid 的组件，用于在用户界面中显示和操作表格数据。 StringGrid 是 Delphi 中常用的一个表格控件，它允许我们在界面上显示和编辑二维表格数据。与普通的表格控件相比，StringGrid 有着更加灵活的特性和可定制性。 在 Delphi 中，我们可以通过在界面上放置 StringGrid 控件，然后使用代码来设置和管理表格中的数据。我们可以为 StringGrid 设置行数和列数，并将数据逐个填充到指定的单元格中。 除了基本的数据填充外，StringGrid 还支持各种操作和功能，例如插入新行或列、删除行或列、隐藏或显示某些行或列。此外，我们还可以自定义每个单元格的外观和行为，包括修改单元格的文本颜色、字体样式、背景颜色等。 StringGrid 还提供了一些事件，在用户对表格进行操作时触发，我们可以利用这些事件来实现更多的交互逻辑，例如响应用户点击某个单元格的事件，或者在表格数据发生变化时进行自动计算或刷新操作。 总而言之，Delphi 中的 StringGrid 类似于其他编程语言或开发环境中的表格控件，但又具备更多的可定制性和功能。它是 Delphi 开发中常用的一个组件，用于处理和展示多行多列的表格数据。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值