索引是itemindex
item是里面的内容
索引的话，是从0开始
item itemindex
A 1
B 2
C 3
listbox1.items.count就是这个列表框里总共有多少项. ......
本书融合了在Windows下利用Delphi 7.0开发应用程序的理论和实践，全面而深入地介绍了利用Delphi 7.0开发应用程序的常用方法和技巧。内容包括用户界面设计、图形图像编程、文件管理、多媒体技术、系统控制、网络和数据库编程以及游戏制作等内容。 详细阅读突破Delphi 7.0编程实例五十讲，来自IT电子图书馆 ......
新建一个dLL工程,新建一个窗体 Fr_bb80 ,我们先在它的单元里加入下面一个函数:
function Report(Title:Pchar):Boolean ;stdcall;
begin
if Fr_bb80=nil then
begin
Fr_bb80:=TFr_bb80.Create(application);
Fr_bb80.Caption:= Title;
try
Fr_bb80.ShowModal;
Result:=true;
finally
Fr_bb80.Free;
end;
end;
Result:=false;
end;
再在此dll工程文件(*dpr)文件中加入
exports Report; //加入这个之后,外面就可以调用这个函数了.
新建一个工程,在新窗体中加一个按钮,下面就是这个按钮的完全代码:
type
TLoadDLL2 = function(Title:Pchar):Boolean; stdcall; //这个是必须的,好像叫回调函数??,它的定义与dll中公开的函数要完全一致
var
......
Delphi数据库编程一日通。
通常情况下，利用 Delphi 开发数据库应用程序，可以使用TTable、TDataSource、TDBEdit、TDBNavigator等构件。只要正确设置了构件的某些属性，再编写必要的程序代码对一些特定事件进行处理，就能够完成对多种数据库进行的数据处理，例如：记录的输入、修改、删除和查询等。这样做虽然只需要编写极少量的程序代码就能达到很好的效果，但如果在程序设计过程中，某些数据表的结构发生了改变，则必须修改与此数据表有关的所有构件的属性，这将使程序员陷入繁琐的重复劳动中。
首先来介绍一些查询技巧
Delphi中实现多线程同步查询
---- 为避免上述的麻烦，我们可以在编写网络数据库应用程序时采用结构化查询语言 SQL(Structured Query Language)，这样不仅可以更方便地与诸如 SQL Server、Oracle 等各种后台数据库进行动态的数据交换，而且可以使程序的修改和移植更加灵活。我们以数据输入模块为例，说明开发客户服务器应用程序时如何采用 SQL 语句实现数据处理功能。首先，判断是否已经有事务处理程序在运行，如果有，将其回卷(rollback)；如果没有，则启动一个新的事务，为数据的最终处理做准备。其次，是设置 SQL 语句，并将其写入 TQuery � ......
Windows API 的数据类型与 Delphi 数据类型对照表
作者：admin 来源：未知 日期：2010-1-28 13:10:56 人气：43 标签：API
导读：WindowsAPI的数据类型与Delphi数据类型对照表
Windows 数据类型
Delphi 数据类型
描述
LPSTR
PAnsiChar
字符串指针
LPCSTR
PAnsiChar
字符串指针
DWORD
LongWord
整数
BOOL
LongBool
布尔型
PBOOL
^BOOL
指向布尔值的指针
PByte
^Byte
指向字节值的指针
PINT
^Integer
指向整数值的指针
PSingle
^Single
指向单精度浮点值的指针
PWORD
^Word
指向16位值的指针
PDWORD
^DWORD
指向32位值的指针
LPDWORD
PDWORD
指向32位值的指针
UCHAR
Byte
8位值(可用来表示字符)
PUCHAR
^Byte
指向8位值的指针
SHORT
Smallint
带符号16位整数
UINT
LongWord
无符号32位整数
PUINT
^UINT
指向无符号32位整数的指针
ULONG
Cardinal
无符号32位整数
PULONG
^ULONG
指向无符号32位整数的指针
PLongint
^Longint
指向32位值的指针
PInteger
^Integer
指向32位值的指针
PSmallInt
^Smallint
指向16位值的指针
PDouble
^Double
指向双精度浮点值的指针
LCID
DWORD
局部标 ......
FindWindow(
lpClassName, {窗口的类名}
lpWindowName: PChar {窗口的标题}
): HWND; {返回窗口的句柄; 失败返回 0}
//FindWindowEx 比 FindWindow 多出两个句柄参数:
FindWindowEx(
Parent: HWND; {要查找子窗口的父窗口句柄}
Child: HWND; {子窗口句柄}
ClassName: PChar; {}
WindowName: PChar {}
): HWND;
{
如果 Parent 是 0, 则函数以桌面窗口为父窗口, 查找桌面窗口的所有子窗口;
如果 是 HWND_MESSAGE, 函数仅查找所有消息窗口;
子窗口必须是 Parent 窗口的直接子窗口;
如果 Child 是 0, 查找从 Parent 的第一个子窗口开始;
如果 Parent 和 Child 同时是 0, 则函数查找所有的顶层窗口及消息窗口.
}
//测试1: 试着找找新建程序主窗口的句柄
var
h: HWND;
begin
{现在我们知道窗口的标题是: Form1、窗口的类名是: TForm1}
h := FindWindow('TForm1', 'Form1');
ShowMessage(IntToStr(h)); {656180; 这是随机, 每次启动窗口肯定不一样}
{假如不知道类名}
h := FindWindow(nil, 'Form1');
ShowMessage(IntToStr(h)); {656180}
{假如不知道标题名}
h := FindWindow( ......
最新文章 : delphi