delphi的dbgrid控件点击title排序

procedure TfrmMain.DBGridEhTitleClick(Column: TColumnEh);
var i : integer;
begin
for i:= 1 to DBGridEh.Columns.Count do
begin
//恢复所有标题字体为默认
DBGridEh.Columns[i-1].Title.Font.Color := clWindowText;
DBGridEh.Columns[i-1].Title.Font.Style := [];
end;
if Query.Sort<>(Column.FieldName+' ASC') then //判断原排序方式
begin
Query.Sort := Column.FieldName+' ASC';
Column.Title.Font.Color := clRed; //改变标题行字体为红色，表示当前的排序方式为升序
Column.Title.Font.Style := [fsBold];
end
else begin
Query.Sort := Column.FieldName+' DESC';
Column.Title.Font.Color := clBlue; //改变标题行字体为红色，表示当前的排序方式为降序
Column.Title.Font.Style := [fsBold];
end;
end;

转载于:https://www.cnblogs.com/zyb2016/p/6077480.html

delphi的dbgrid控件点击title排序相关推荐

delphi7 mysql控件_Delphi7连接MySql数据库-DBGrid控件显示数据
一个简单的Delphi7小程序,使用MySql数据库做简单查询,用DBGrid控件显示结果,实现过程如下: (1)在MySql中新建demouser表,插入记录用于测试. (2)在Delphi7中新建 ...
mysql读出来的日期后面多了个 .0处理及layui中日期控件点击一闪而过处理
1.mysql数据库中表的字段类型datetime 2.java中显示的字段是 java.util.Date 如果sql不做处理的话,显示.0 解决:sql中对日期格式化处理 DATE_FORMAT( ...
Android控件点击圆形阴影反馈解决方案
Android控件点击圆形阴影反馈解决方案愿景对于手机App而言,没有反馈效果的按钮使用体验是不舒服的.最近在深入学习Material Design,对其中的ripple效果比较感兴趣.我想着尝试 ...
【前端】layui日期控件点击一闪而过解决方法
[前端]layui日期控件点击一闪而过解决方法参考文章: (1)[前端]layui日期控件点击一闪而过解决方法 (2)https://www.cnblogs.com/nb123/p/12159683 ...
Delphi XE2 新控件布局Panel TGridPanel TFlowPanel
Delphi XE2 新控件 Firemonkey 布局Panel Windows平台VCl TGridPanel TFlowPanel FMX 跨平台 TLayout TGridLayout TFl ...
VB.NET中LISTVIEW控件点击列首排序问题
最近写的程序需要点击LISTVIEW控件的列首排序,搜索了一下网上的文章代码,很少,而且是C#的代码,看了下MSDN,终于搞清楚了VB的写法,MSDN上只有按照字母顺序排序的,于是我加工了一下,可以选 ...
2023-02-24 Android app java 模拟控件点击事件，使用performClick方法去实现
一.Android app java 模拟控件点击事件,使用performClick方法去实现. 二.实际使用 private TextView m_bt_connect ;m_bt_connect ...
wpf中ListView控件点击列头排序功能实现（超简洁实用）
.xaml文件中的主要代码 <ListView Name="lvMeasureData" GridViewColumnHeader.Click="Sort_Clic ...
Delphi常用通讯控件的应用札记
Delphi常用通讯控件的应用札记 1.SPComm串口控件 2.TClientSocket

delphi的dbgrid控件点击title排序

delphi的dbgrid控件点击title排序相关推荐

最新文章

热门文章