引言： 请看下面的代码：listview的columns属性加4个列项，viewstyle属性设为vsReport,smallimage属性对应imagelist。
摘要： 一、引言
在delphi开发环境中，文字的输出效果一般都是头上脚下的"正统"字符，如何输出带有一定倾斜角度的文字以达到特殊的显示效果呢？笔者在制作公章辅助设计软件过程中，通过windows图形设备接口函数实现了文字呈辐射状分布的功能。
windows图形设备接口(graphics device interface)是windows系统中的图形核心模块，以gdi.......
摘要：function shell_notifyicon(dwmessage:dword;lpdata:pnotifyicondata):bool;stdcall;
在shellapi单元中。
dwmessage:nim_add
nim_modify
nim_delete
pnotifyicondata=^tnotifyicondataa
tnotifyicondataa=record
cbsize:d......
Listview中实现点击栏目标题排序请看下面的代码:listview的columns属性加4个列项,viewstyle属性设为vsreport,smallimage属性对应imagelist.imagelist加载图标.query1对应与parts.db表.
【程序编程相关:
Delphi中预编译指令如何使用
】 【推荐阅读:
Delphi组件indy 10中IdTC】
这段代码能实现升序排列,降序你稍作改动即可.如果是按字段数据类型排序则可用sql语句实现.另外这段代码可实现响应双击第一列下的图标. 【扩展信息:
Delphi代码标准文档
】
unit unit1;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
stdctrls, comctrls, imglist, db, dbtables;
type
tform1 = class(tform)
listview1: tlistview;
button1: tbutton;
imagelist1: timagelist;
query1: tquery;
procedure button1click(sender: tobject);
procedure listview1columnclick(sender: tobject; column: tlistcolumn);
procedure listview1compare(sender: tobject; item1, item2: tlistitem;
data: integer; var compare: integer);
procedure listview1dblclick(sender: tobject); ...
下一页 摘要：首先，选择file|new, 选择页面activex，选择activex library，点击ok，生成一个activex的项目。然后选择 file|new,选择multitier，选择mts datamodule或者mts object。其中mts datamodule可以在module上放数据库链接等控件。而mts object没有。选择完毕后，点击ok，弹出对话框要选择类名，输入类名mtst......
