请大侠指教！
-
等级
本版专家分：399结帖率 98.88% -
好象Delphi的例子里没有啊！
请大侠指教！展开阅读全文
-
等级
本版专家分：5591 -
实现StringGrid的删除，插入，排序行操作
Procedure GridRemoveColumn(StrGrid: TStringGrid; DelColumn: Integer);
Var Column: Integer;
begin
If DelColumn <= StrGrid.ColCount then
Begin
For Column := DelColumn To StrGrid.ColCount-1 do
StrGrid.Cols[Column-1].Assign(StrGrid.Cols[Column]);
StrGrid.ColCount := StrGrid.ColCount-1;
End;
end;
Procedure GridAddColumn(StrGrid: TStringGrid; NewColumn: Integer);
Var Column: Integer;
begin
StrGrid.ColCount := StrGrid.ColCount+1;
For Column := StrGrid.ColCount-1 downto NewColumn do
StrGrid.Cols[Column].Assign(StrGrid.Cols[Column-1]);
StrGrid.Cols[NewColumn-1].Text := '';
end;
Procedure GridSort(StrGrid: TStringGrid; NoColumn: Integer);
Var Line, PosActual: Integer;
Row: TStrings;
begin
Renglon := TStringList.Create;
For Line := 1 to StrGrid.RowCount-1 do
Begin
PosActual := Line;
Row.Assign(TStringlist(StrGrid.Rows[PosActual]));
While True do
Begin
If (PosActual = 0) Or (StrToInt(Row.Strings[NoColumn-1]) >=
StrToInt(StrGrid.Cells[NoColumn-1,PosActual-1])) then
Break;
StrGrid.Rows[PosActual] := StrGrid.Rows[PosActual-1];
Dec(PosActual);
End;
If StrToInt(Row.Strings[NoColumn-1]) < StrToInt(StrGrid.Cells[NoColumn-1,PosActual]) then
StrGrid.Rows[PosActual] := Row;
End;
Renglon.Free;
end;
-
等级
本版专家分：6676
-
不说了，楼上都说了！
-
等级
本版专家分：399
-
我想做的是将StringGrid的网格线重画，好象用OnDrawCell做不了，而又没有其它的事件可用，应该怎么办？
-
等级
本版专家分：4355勋章
-
- 黄花 2003年6月 DB2大版内专家分月排行榜第二
-
- 蓝花 2003年5月 DB2大版内专家分月排行榜第三
-
-
UP
- 学用 TStringGrid [3] - Cols、Rows
须知: TStringGrid 的每行、每列都是一个 TStrings 对象.本例功能:1、分别按列与行修改;2、分别按列与行读取//本例代码:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, ...
- 如何使用 TStringGrid 呈现大量的颜色信息 - 回复 "冷公子" 的问题
同学需要在 TStringGrid 中通过颜色显示大量信息, 给出的方案是: 建立一个对应的颜色数组. 参考代码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, ...
- 学用 TStringGrid [4] - ColWidths、RowHeights
为什么80%的码农都做不了架构师？>>> ...
- 学用 TStringGrid [2] - DefaultColWidth、DefaultRowHeight、Col、Row
为什么80%的码农都做不了架构师？>>> ...
- 在Delphi XE的TStringGrid中使用TComboBox作为单元格编辑器
需要进行以下几步： 创建StringGrid，在OnSelectCell事件中显示ComboBox覆盖单元格作为编辑器 创建ComboBox，将其Parent设置为StringGri...
- 学习笔记：delphi之TStringGrid
最近加入了一个项目组，使用的开发工具是delphi6，想想又要开始搞这个工具有点小忧伤，但没办法谁让咱就是个打杂的尼。。。 的需求是显示一个类似于Word/excel的那种表格，可以合并列等。。本来想用DBGridEh去解决...
- tstringgrid 单元格区域获取_零基础学Excel VBA-WE002 【VBA获取最大行列号，让代码更智能】...
[] / Range / Cells代表一个单元格或单元格区域，这是非常基本、用法也非常多的对象。我们看一个汇总说明。对固定单元格和固定范围的表示，用 [] 是最简单也最直观的，用 Range 也还可以，只是书写起来稍为啰嗦，而...
- TStringGrid 实现下拉框
TStringGrid 实现下拉框比较常见的思路是在TSringGrid中嵌入一个TComboBox ，思路...先看两个Delphi提供的VCL：TInplaceEdit 是Delphi 提供的一个未公开的控件，只能内嵌于TCustomGrid中使用，TStringGrid 单元格...
- Delphi StringGrid控件的用法
Delphi StringGrid控件 组件名称：StringGrid ●固定行及固定列： StringGrid.FixedCols:=固定行之数; StringGrid.FixedRows:=固定列之数; StringGrid. FixedColor:=固定行列之颜色; StringGrid.Color:=...●...
- bcb之StringGrid控件使用
StringGird控件的基本设置 stringgrid1->ColCount = 6;//设置stringgrid1总列数 stringgrid1->RowCount = 4;//设置stringgrid1总行数 stringgrid1->FixedCols = 0;//设置stringgrid1资料区列数 str...
- dbgrid的一些用法
Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 ...
- StringGrid使用全书
StringGrid行列的增加和删除type TExCell = class(TStringGrid)public procedure DeleteRow(ARow: Longint); procedure DeleteColumn(ACol: Longint); procedure InsertRow(ARow: LongInt); procedure ...
- 使用 IntraWeb (20) - 基本控件之 TIWGrid
... 其每个 Cell 都是一个 TIWGridCell 对象, Cell 对象的 Control 属性非常好, 可以非常方便地嵌入其他控件. TIWGrid 所在单元及继承链: IWCompGrids.TIWGrid &... TIWCustomGrid &... TIWBaseHTMLCo...
- C++Builder使用经验谈(上)
原文地址:http://c.chinaitlab.com/ccjq/874278_4.htmlC++Builder3.0的问世，对广大爱好C语言的用户来说不啻是个福音。因为以往在Windows下，没有一种真正基于C语言的可视化编程语言。你如果想用VB或Delphi这一类...
- DBGrid 各属性的设置
在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变...
- DBGrid 使用大全
在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。...
- XE6 FMX之控件绘制与显示
中午，有个货随手买的2块钱的彩票，尼玛中了540块...FMX目前已经更新了好几个版本，甚至连属性方法都改过了，从以前刚出来时候的拼音输入法支持都有Bug，到现在基本上比较流畅运行，说明了进步还是挺大的，那么学习...
- Delphi 类引用 Class Reference 元类 MetaClass 用法
delphi中类引用的使用实例 类引用类引用（Class Reference）是一种数据类型，有时又称为元类（MetaClass），是类的类型的引用。类引用的定义形式如下： class of type 例如： type SomeClass = class ...
- 使用Delphi快速开发ActiveX控件
ActiveX控件也就是一般所说的OCX控件，它是ActiveX技术的一部分。ActiveX是微软公司推出的基于组件对象模型COM的技术，包括对Windows 32位应用编程接口(Win32 API...微软的ActiveX技术根本上就是修改过的OCX技术，使...
- Hook其他程序中的StringGrid的内容（内牛满面，终于找到了。）
Hook其他程序中的StringGrid的内容[转]2009年05月28日 星期四 22:09 原贴见 ...显然不可行，普通的Windows消息不能直接获取到某个Cell的内容，TStringGrid并不是Windows的组件，而是Delphi自己的组件，它
- vclskin美化控件的用法
学习DELPHI时为了美化程序， 所以在网上找到了这个插件! 1. VCLSkin综述 ...VCLSkin是一个能让Delphi程序变得非常漂亮的控件包....VCLSkin同时也提供了大量高质量的skin(皮肤)让你应用于你的程序。...
- Delphi StringGrid使用全书
简介： ...(1)正确地设置StringGrid列宽而不截断任何一个文字方法是在对StringGrid填充完文本串后调用SetOptimalGridCellWidth过程 -----------程序片断---------------------------------------
- DBGrid 应用全书
在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变...
- dbgrid使用大全(delphi)
<!-- /* Font Definitions */ @font-face {font-family:宋体; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-alt:SimSun; mso-font-charset:134; mso-generic-font-family:auto;...}
- Delphi 7皮肤控件VCLSkin 5.60的使用
VCLSkin是一个能够用于创建Delphi/C++ Builder应用程序美化界面的皮肤组件。它允许允许软件开发人员不用修改程序代码便把软件界面变得非常漂亮。它的美化支持窗体和控件和菜单。VCLSkin同时也提供了大量高质量的skin...
- 071_《Delphi7编程技巧与实例精解》
每一个实例按照实例说明、核心技术与技巧、实现步骤、运行结果、主要代码等方面迸行了精心讲解，使读者能够掌握开发每一个突例的关键技术及方法，从而大大提高自己使用Delphi开发各种应用程序的水平。本书内容...
- 065_《Delphi7组件编程参考手册》
本书涵盖了Delphi 7集成开发环境的使用、介绍包括基本窗口组件、列表框组件、数据库组件等百余种组件的功能、属性、事件以及方法。 书中大部分组件都辅以了合适的示例。这些示例力求短小精练、界面友好、可读性强，...
- 060_《Delphi7新概念百例》
本书是一本通过讲解Delphi实例，来说明使用Delphi编程时通常采用的编程思路以及具体方法的计算机书籍。通过对每个实例从编程思路和代码实现的详细分析和讲解，力求带领读者快速地提高自己的程序设计水平，并达到...
- 关于Delphi中二维数组的声明和大小调整
这是一个实例：procedure TMainForm.Button1Click(Sender: TObject);var arr:array of array of string;begin setlength(arr,2,3); arr[1,2]:=this is a test; setlength(arr,0,0); setlength(arr,4,5);...
- StringGrid使用大全
StringGrid使用大全1 2008-10-25 22:55 StringGrid行列的增加和删除 type TExCell = class(TStringGrid) public procedure DeleteRow(ARow: Longint); procedure DeleteColumn(ACol: Longint);...