Delphi 11.3 FMX 多设备平台中使用 TGrid 实现类似 TDBGrid 的效果

最新推荐文章于 2023-12-09 21:14:49 发布
原创 最新推荐文章于 2023-12-09 21:14:49 发布 · 1.4k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#Delphi #11.3 #fmx #dbgrid

博客介绍在Delphi Firemonkey中，因TDBGrid控件缺失，可用TGrid实现类似效果，以11.3版本为例讲解。还提到查询中数据库控件的一般用法可参考其他资料，重点介绍了通过界面配置，利用TStringGrid、TBindSourceDB等控件实现效果的方法。

Delphi Firemonkey 中 TDBGrid 这个控件已经没有了。如何实现类似这个效果呢。其实可以用TGrid 来实现。以下用 11.3 来讲解。

查询里面用到的 connection 和 query 等控件那些一般的数据库用法，就不做过多描述了。请参考其他资料。

方法一.通过界面配置来实现

在界面里面放入 TStringGrid 控件 StringGrid1，TBindSourceDB 控件 BindSourceDB1，TBindingsList 控件 BindingsList1 ，TButton 控件 Button1。

 在bindsourceDB1的dataset属性设置对应的 query控件名称。

双击 bindingslist1 控件，

 

增加一个 TLinkGridToDataSource 控件

最低0.47元/天 解锁文章
delphi xe FMX里的窗口如何像处理像VCL里的消息又一示例
狼缘的博客
11-10 744
因此，你必须通过SetWindowLongPtr(GWLP_WNDPROC)或SetWindowSubclass()直接手动派生TForm的Win32 HWND子类，以便在FMX看到窗口消息之前截获它们。参见Subclassing controls。FMX大量过滤窗口消息，只调度它自己实际使用的几个消息。WM_APPCOMMAND不是其中之一，这就是为什么简单的message处理程序不能像在VCL中那样在FMX中工作。在创建TForm之后，您可以使用FMX的FormToHWND()函数来获取它的HWND。
2021年零基础学Delphi 11开发极简教程
热门推荐
Delphi开发局QQ群:32422310
09-15 1万+
本教程的目标是描述 Delphi 开发生态系统。对于从另一种编程语言来到 Delphi 的人来说，这可能会有所帮助。 Delphi 真的很容易学习——编程语言的语法可以在几个小时内学会。Pascal 是 Delphi 的 Object Pascal 语言演变而来的，长期以来一直是大学和教育中非常流行的语言，用于教授软件开发的基本概念。了解编程的基础知识是编程的关键部分。但是存在一个完整的术语和技术生态系统。对于来自不同技术背景的人来说，这总是让人不知所措。 另一个问题是，有太多不同的 Delph...
Delphi演示TDBGrid组件的斑马线提示功能..rar
04-22
Delphi演示TDBGrid组件的斑马线提示功能..rar
Delphi xe FireMonkey FMX StingGrid 点击表头排序
SXF的专栏
06-27 3615
最近在尝试使用 delphi xe 的 FireMonkey 类库写东西，用到FMX 的 TStringGrid 控件，数据是运行时程序填充的，需要实现点击标题排序的功能，网上搜索了下，都是VLC TStringGrid 相关的代码，看来 FMX 还是很小众的东东。依葫芦画瓢，网上找了使用比较多的VCL StringGrid 的排序算法，自己改了下用在 FMX 下的StringGrid OK了
Delphi Firemonkey 多设备平台中使用 TGrid 实现类似 TDBGrid 的效果
tiantang2003的博客
07-16 464
Delphi Firemonkey 多设备平台中使用 TGrid 实现类似 TDBGrid 的效果
Delphi FMX PC端的界面模板
11-15
Delphi FMX（FireMonkey）是Embarcadero Technologies开发的一种跨平台的用户界面框架，主要用于构建Windows、macOS、iOS、Android等多平台的应用程序。这个“Delphi FMX PC端的界面模板”提供了在个人计算机上创建...
FMXKeyboard_delphi_keyboard_fmx_
10-04
标题 "FMXKeyboard_delphi_keyboard_fmx_" 指向的是一个与 Delphi 开发相关的项目，特别是关于在 FireMonkey (FMX) 框架下实现键盘功能的组件或库。Delphi 是一种强大的 Object Pascal 编程环境，常用于开发跨平台的...
在Delphi中使用DBGrid处理多条记录
05-18
以下是对在Delphi中使用DBGrid处理多条记录的详细说明： 首先，理解DBGrid的基本结构与功能。DBGrid是TDBGrid组件，它继承自TGrid，但增加了对数据库的支持。TDBGrid通常会绑定到一个TDataSource组件，而...
DevExpress FMX Data Grid全面编辑
q2315702359的博客
11-29 844
DevExpress FMX数据网格具有强大的功能，因此您可以创建漂亮的跨平台应用程序，这些应用程序可以在Windows、Android和macOS上以本地方式运行(并显示)。FMX数据网格(CTP)FireMonkey(FMX)的高性能数据网格组件，具有集成的主细节和数据分组支持。我们开发了FMX表视图，它模拟了Microsoft Outlook网格的外观、感觉和功能，并使用标准的表UI隐喻显示数据。在我们的FMX数据网格中，您可以显示任何复杂度的主细节关系，具有无限嵌套和所有级别的细节。
delphi xe 10.2.3 fmx grid 多元化表格 支持合并单元格 单独设置背景色
07-06
首先说下控件功能如下: 1,可以设置固定行 和固定列.固定行和列是任何时候不许编辑的,但是可以代码修改设置 2,可以设置背景色(包括固定好和表格内部背景色,非固定单元格背景只对新建单元格有效) 3,可以合并单元格(横向竖向均可合并,支持横竖同时合并单元格效果) 4,边框线宽度可以设置(外边框线,内边框线可以分开设置) 5,边框颜色可以设置(内外线色可以设置不同颜色) 6,可以设置编辑状态(此属性是新建单元格属性,只对新建单元格生效) 7,只读属性(针对所有非固定单元格) 8,随时可以设置行数和列数(减少的话,末尾待减少储存数据会丢失) 9,增加是否立即刷新参数,可以在大量输入录入时快速执行 下面是单元格单独属性设置介绍 1,可以储存字符串 2,可以储存整数 3,可以储存文本(默认单元格内显示[DEMO],可以编辑实际内容或读取实际内容) 4,可以储存字符串列表(可以设置读取选择字符串) 5,可以储存日期(格式2018-07-06) 6,可以储存时间(格式10:26:32,设置智能设置到时分,直接赋值可以包含更精确单位) 7,可以设置日期(格式包含以上格式,设置同上.直接赋值可以保存更精确单位) 8,可以储存颜色(显示以保存颜色显示) 9,单元格字体,所有字体设置均支持(包含颜色,字体,换行,对齐等属性) 10,背景可以单独设置 10,可以单独设置是否允许编辑 详细使用请看使用说明
delphi fmx 实用DEMO
06-08
FMX实用DEMO 01 后续如果有更新则升级版本号。
Delphi FMX 获取安卓WIFI信息并实现UDP通信
03-14
Delphi FMX 获取安卓WIFI本机的IP信息 手机通过UDP与终端通信，实现发送数据（按协议发送，可以达到控制硬件产品的目的）
Delphi Firemonkey (Fmx) 入门程序(手机记事本和幼儿识字卡片)源码
08-13
本源码是本人对Delphi Fmx的第一次尝试。发现熟悉了Delphi编程，用它编手机程序还是很容易入门的。本源码是一个手机记事本和幼儿识字卡片。编译环境 Windows 7 x86, Delphi xe7和Delphi 10.4.2均可编译。其他版本的话，需要修改里面的编译指令（如VER340）
delphi xe10.1中TGridPanelLayout控件的demo
11-28
delphi xe1.0中TGridPanelLayout控件的demo,供大家学习
Delphi FMX正确设计和加载图片满足分布式跨平台App的性能需求-分布式跨平台App中美工图片的处理、上传下载、并发及客户端显示技术架构
pulledup的博客
10-12 1752
Delphi FMX正确设计和加载图片满足跨平台需求，综合考虑：客户端（内存、设备屏幕适配）、服务端（上传效率、并发时效及网路瓶颈、内存）、美工工作量 刚刚请教了高勇老师，结合高老师的GYListview的优秀设计和实际应用，就本文标题问题得出最后的解决方案，供大伙在实际软件架构和设计开发时参考。 一、关于本博客博文《Delphi FMX正确加载图片最大限度减少内存占用（之一TBitmapSurface）》的本质 1.1、Delphi FMX中，TB...
Delphi FMX Grid列头样式设定
秋水的专栏
06-30 1933
procedure TForm1.StringGrid1ApplyStyleLookup(Sender: TObject); var Header: THeader; HeaderItem: THeaderItem; I: Integer; begin Header := THeader((Sender as TStringGrid).FindStyleResource('head
Delphi FMX StringGrid 运行时增加列
zzsg2005的专栏
06-15 453
Delphi FMX StringGrid 运行时增加列
【Delphi】FMX开发 ios 和 android 异同点（踩坑记）
sensor_WU 博客
12-09 1057
介绍Delphi中FMX开发ios和android中菜的坑
delphi FMX Grid 如何实现类似dbgrideh 功能
最新发布
02-28
### 实现 Delphi FMX Grid 类似于 dbGridEH 功能 在 Delphi FireMonkey (FMX) 平台下，`TGrid` 控件提供了基本的数据展示能力。为了实现 `dbGridEH` 的高级功能，在 TGrid 上扩展或自定义是必要的。 #### 数据绑定增强 对于数据源连接方面，可以利用 `TFDMemTable` 或者其他支持 LiveBindings 的组件来作为数据提供者[^1]。通过设置 `LiveBindings` 属性，能够使网格自动反映数据库中的变化： ```delphi procedure TForm1.FormCreate(Sender: TObject); begin FDMemTable1.CreateDataSet; BindSourceDB1.DataSet := FDMemTable1; LinkGridToDataSourceBindSourceDB1.DataSource := BindSourceDB1; end; ``` #### 列宽调整与固定列 允许用户手动改变各字段宽度，并保持某些特定列为冻结状态。这可以通过重载 `OnColumnResize` 和 `OnDrawColumnCell` 方法完成。当鼠标拖拽边界时触发前者事件处理程序；后者用于绘制单元格内容前执行逻辑判断是否属于锁定区域内的项目[^2]: ```delphi type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure Grid1ColumnResize(Sender: TObject; Column: TColumn); procedure Grid1DrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Bounds: TRectF; const Row, Col: Integer; const Value: TValue; var DefaultDrawing: Boolean); private FixedColumnsCount : integer; public end; ... // 设置固定的前列数 FixedColumnsCount := 2; procedure TForm1.Grid1ColumnResize(Sender: TObject; Column: TColumn); var i :integer ; begin if Assigned(Column) then begin for i:=0 to Grid1.Columns.Count-1 do if not Grid1.Columns[i].IsVisible and (i<FixedColumnsCount)then Grid1.Columns[i].Width := Column.Width; end; end; procedure TForm1.Grid1DrawColumnCell(Sender: TObject; const ACanvas: TCanvas; const ARect: TRectF; const ARow, ACol: Integer; const AValue: TValue; var ADrawingDefault: Boolean); begin if ACol < FixedColumnsCount then // 自定义画法... else ADrawingDefault := True; end; ``` #### 排序过滤操作 添加按钮或其他交互控件让用户指定排序依据以及条件筛选记录集。借助 SQL 查询语句或者内存表自带的方法达成目的。例如，针对某列点击升/降序排列可编写如下代码片段[^3]: ```delphi procedure TForm1.SortButtonClick(Sender: TObject); var FieldName:string; begin case Sender of btnSortAsc: begin FieldName := &#39;FieldName&#39;; // 替换成实际要排序的字段名 FDMemTable1.IndexFieldNames := &#39;&#39;; FDMemTable1.IndexDefs.Clear; with FDMemTable1.IndexDefs.AddIndexDef do try Name := &#39;OrderBy&#39;+FieldName+&#39;ASC&#39;; Fields := FieldName; Options := [ixDescending]; finally FDMemTable1.IndexName := &#39;OrderBy&#39;+FieldName+&#39;ASC&#39;; end; end; btnSortDesc: ... end; end; ``` 以上就是一些关于如何模仿 `dbGridEH` 特性的介绍，当然还有更多细节等待探索和完善。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

tjsoft

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值