登录
首页 » Delphi源码 » Delphi 单击StringGrid列进行排序

Delphi 单击StringGrid列进行排序

于 2022-05-29 发布 文件大小:7.57 kB
0 232
下载积分: 2 下载次数: 1

代码说明:

Delphi 单击StringGrid列进行排序,StringGrid行的任意列单击,就会重新排序一次,排序规则可以自己定义,这种排序功能可有效提升StringGrid显示数据的易用性,增强其功能,提升用户体验,本例子源代码相当简单,对学习者也有很好的帮助作用。参见以下代码:   begin    if Button = mbRight then Exit;    TStringGrid(Sender).MouseToCell(X, Y, vCol, vRow);    if (vRow < 0) or (vRow >= TStringGrid(Sender).FixedRows) then Exit;    StringGridRowSort(TStringGrid(Sender), vCol, vOldCol = vCol);    if vOldCol = vCol then    vOldCol := - vOldCol    else    vOldCol := vCol;   end;

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi SQLSERVER停车场收费管理系统
    Delphi SQLSERVER停车场收费管理系统,本系统涉及有多个硬件,运行后需要初始化硬件,读取硬件的配置数据,包括控制器。需要联网读取数据,比较综合的一套系统。可对挡车器、停车场照明系统进行管理,可财务报帐、年终结算等功能,主窗口启动时,先连接数据库和用户登录。硬件参数需要重新启动该程序才能生效,设置照明灯自动开关时间,向数据库中写入记录,控制硬件打开挡车器,开始事务:fee_station-结帐次数加1,维护费用AMaintain=0 ,start_fee增加。。。
    2023-06-03 04:50:05下载
    积分:1
  • Delphi设计制作BMP图像的推拉动画效果
    Delphi设计制作BMP图像的推拉动画效果,类似PPT幻灯片中的图像飞入效果,图片本应该在窗口上显示,但经过本代码的控制后,图像由底部向上部被推出来,其实就是由下到上的图片滑动效果,有兴趣的可下载源码参考主文件代码。   注:本程序好像只对BMP图像有效,其它格式如JPG/gif等图像暂且不支持该动画效果。
    2022-02-03 23:17:10下载
    积分:1
  • Delphi 修改网络设置DNS地址
    Delphi 修改网络设置DNS地址,这个修改DNS程序是通过修改注册表的方法来修改。修改前先获取到系统安装的网卡信息,由用户指定待修改的新DNS地址,输入地址框,单击“修改”按钮即可完成修改。因此通过本程序,你可以了解许多注册表方面的操作技巧,以及网络设置相关知识。
    2022-02-14 09:59:16下载
    积分:1
  • Delphi添加图层蒙版
    Delphi添加图层蒙版,运行本程序后,在屏幕上添加一层阴影,透明度大概在70%左右,可看作是在屏幕上方蒙了一层薄膜的感觉,代码简单:procedure TForm1.FormCreate(Sender: TObject);   var    bTrans: Byte;    OldStyle: Integer;   begin    form1.Color := clGradientActiveCaption;    WindowState := wsMaximized;    BorderStyle := bsNone;    FormStyle := fsStayOnTop;    OldStyle := GetWindowLong(Handle, GWL_EXSTYLE);    SetWindowLong(Handle, GWL_EXSTYLE, OldStyle or WS_EX_LAYERED Or WS_EX_TRANSPARENT);    bTrans := 128;    SetLayeredWindowAttributes(Handle, 0, bTrans, LWA_ALPHA);   end;
    2022-02-06 10:25:25下载
    积分:1
  • Delphi TreeView来显示数据库信息
    Delphi 使用TreeView来显示数据库信息,从数据库中读取数据,然后生成树形交叉节点的菜单,这种菜单通俗的叫做“树形菜单”,也是大家平时比较常见的菜单形式之一。   function TreeAddItem(Sender: TTreeView;ItemList: TStrings;BookMark: TBookMark;Resort: Boolean):TTreeNode;   var    ThisNode,Node: TTreeNode;    i: integer;   begin    Node := Nil;    for i := 0 to ItemList.Count-1 do    begin    ThisNode := TreeFindItem(Sender,Node,ItemList[i]);    if(ThisNodeNil) then Node := ThisNode    else begin    if I   then begin    if I=0 then Node := Sender.items.Add(Node, Itemlist[i])    else Node := Sender.items.AddChild(Node, Itemlist[i]);    end    else begin    if I=0 then Node := Sender.items.AddObject(Node, Itemlist[i],Bookmark)    else Node := Sender.items.AddChildObject(Node, Itemlist[i],Bookmark);    end;    Node.stateIndex := Node.level + 1;    if Resort and (Node.parent nil) then Node.parent.alphasort;    end;    end;    Result := Node;   end;
    2022-02-02 14:05:08下载
    积分:1
  • 窗口中的弹出式右键菜单-delphi
    窗口中的弹出式右键菜单-delphi PopupMenu源码,   procedure TForm1.Button1Click(Sender: TObject);   var    Poin:TPoint;   begin    Poin := Point(Button1.Left,Button1.Top+Button1.Height);    Poin := ClientToScreen(Poin);    PopupMenu1.Popup(Poin.X,Poin.Y);   end;
    2022-07-24 15:12:59下载
    积分:1
  • Delphi 图片颜色逐渐加深功能的实现
    Delphi演示如何将一张图片的颜色加深,类似于调整对比度,不过本效果不加入了渐变加深的动画效果,按住按钮图片一直变暗下去,要知空间,你可看下以下代码:   Bitmap:=image1.Picture.Bitmap;   image1.Height:= Bitmap.Height;   image1.Width:= Bitmap.Width;   for i:=0 to 255 do   begin    sleep(10);    for y:=0 to Bitmap.Height-1 do    begin    pixcolo:=Bitmap.Scanline[y]; //扫描每行像素颜色    for x:=0 to ((Bitmap.Width*3)-1) do    //递减颜色值,不同的递减值可改变不同的速度    if pixcolo[x]>0 then pixcolo[x]:=(pixcolo[x]-1);    end;    Image1.Canvas.Draw(0,0,Bitmap);    Application.ProcessMessages; //让Application去处理消息队伍中的消息   end;
    2022-03-23 16:34:19下载
    积分:1
  • Delphi 得到 Windows当前时间的例子
    Delphi 获取并显示当前Windows时间的例子,这个例子比较简单了,程序就完成一项功能,打开窗口后,点击按钮,即可获取当前的系统时间,并显示在窗体上,如效果图所示。
    2022-06-29 06:02:41下载
    积分:1
  • Delphi为程序添加esc退出程序的功能
    本源码演示Delphi如何用ESC键退出程序,为程序添加esc退出程序的功能,一般情况下,关闭程序都是通过ALT+f4或者直接点击窗口右上角的叉子关闭,不过我们也可以为程序添加通过键盘按下ESC键来关闭程序,本源码就是演示了此种功能,当用户按下ESC时,窗口即关闭,程序退出。
    2022-07-21 22:03:47下载
    积分:1
  • Delphi 创建Excel表格文件
    Delphi 读取SQLSERVER数据库内容,并创建Excel表格文件,将内容导出到excel文件中,核心同样是基于createoleobject对象的excel.application方法实现,创建EXECEL对象 ,添加comobj单元,用循环加入记录,将数据表导入到Excel表中,正式开始EXECEL输出。
    2022-02-15 04:17:26下载
    积分:1
  • 696516资源总数
  • 106658会员总数
  • 16今日下载