摘要： Delphi网络函数unit net;interfaceusessysutils,windows,dialogs,winsock,classes,comobj,wininet;//得到本机的局域网ip地址function getlocalip(var localip:string): boolean;//通过ip返回机器名function getnamebyipaddr(ipaddr: string; var macname: string): boolean ;//获取网络中sqlserver列表function getsqlserverlist(var list: tstringlist) 阅读全文

摘要： 一 Dll的制作一般步骤二 参数传递三 DLL的初始化和退出清理[如果需要初始化和退出清理]四 全局变量的使用五 调用静态载入六 调用动态载入七 在DLL建立一个Tform八 在DLL中建立一个TMDIChildform九 示例：十 Delphi制作的Dll与其他语言的混合编程中常遇问题：十一 相关资料一 Dll的制作一般分为以下几步：1 在一个DLL工程里写一个过程或函数2 写一个Exports关键字，在其下写过程的名称。不用写参数和调用后缀。二 参数传递1 参数类型最好与window C++的参数类型一致。不要用DELPHI的数据类型。2 最好有返回值[即使是一个过程]，来报出调用成功或失 阅读全文

摘要： 用过Win2000 的朋友肯定知道Win2000 的“半透明效果”，它可以透视背景或底层的其他位图，而不是一般文章所介绍的不规则窗口技术。然而，本文将讨论在Win98环境中实现“半透明效果”的方 法。由于Delphi 在RAD 方面的优势，所以本文使用Del p h i 作为开发工具，看过本文以后，你会发现原来用Delphi 来实现是这么简单。我们知道，在Delphi 中生成一个新的窗口时，会生成一个长方形的窗口并盖住背景。为了实现半透明效果，首先就得实现“透明”的效果，为此，我们需要截获WM_ERASEBKGND 消息，传递给Windows一个处理过的标志就可以了。这样，我们程序的背景使用的 阅读全文

摘要： 在标准的Windows程序中所有按钮均没有颜色。因此Delphi提供的所有按钮组件也均无颜色属性，有时你可能做了一个五颜六色的程序界面，而按钮颜色可能很不相称。在此本人提供一种用自定义组件制作有颜色属性的铵钮的方法，它遵循了Delphi的组件定义规则，完成后该按钮与普通按钮（Button）相比，多了一个Color属性，你可以永远地使用它，在设计阶段随意地改变颜色，就象是Delphi本身提供的组件一样（本文代码在Delphi 4.0下完成)。第一步打开Delphi，选择菜单的Component/New Component选项，在弹出对话框的Ancestor type下拉框中手工填入或下拉选择TB 阅读全文

摘要： {生成字符串的助记码 }Function GetZJM(Value: String):String;var I, L: Integer; C: array[0..1] of Char; R: Char;begin Result := ''; L := Length(Value); I := 1; while I #0 then Result := Result + R; Inc(I, 2); end; end; if I = L then Result := Result + Value[L];end;{获取汉字字符串的拼音码}Function GetHZM(Value: ar 阅读全文

摘要： USER ：DateUtils使用 StartOfTheMonth 和 EndOfTheMonth 函数获取即可；procedure TForm1.btn1Click(Sender: TObject);begin mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd',StartOfTheMonth(Now))); mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd',EndOfTheMonth(Now))); //mmo1.Lines.Add(DateTimeToStr(StartOfTheMont 阅读全文

摘要： function TForm1.DeleteDirectory(NowPath: string): Boolean; // 删除整个目录var search: TSearchRec; ret: integer; key: string;begin if NowPath[Length(NowPath)] '\' then NowPath := NowPath + '\'; key := NowPath + '*.*'; ret := findFirst(key, faanyfile, search); while ret = 0 do begin 阅读全文

摘要： TDataSet控件以及它的继承控件，例如TSimpleDataSet/TClientDataSet等都可以使用Locate方法在结果数据集中查寻数据。程序首先必须使用SQL命令从后端数据库中取得数据并且形成结果数据集，然后才使用Locate方法查寻数据。当使用Locate方法查寻数据时，开发人员可以使用任何的字段条件来查寻，而无须理会这个字段是不是索引字段。当然，当开发人员使用索引字段来查寻数据时，Locate会直接使用索引来帮助查寻，因此速度会非常快速。如果开发人员使用非索引字段查寻数据，那么Locate也将使用目前它知道最好的方式来查寻数据。此外，Locate方法不只能够查寻一个单一的字 阅读全文

摘要： Delphi Cxgrid获取选中行列，排序规则，当前正在编辑的单元格内的值cxGrid1DBTableView1.Controller.FocusedRowIndex 当前行号cxGrid1DBTableView1.Controller.FocusedRow 当前行cxGrid1DBTableView1.Controller.FocusedColumn 当前列cxGrid1DBTableView1.Controller.FocusedColumnIndex 当前列号cxGrid1DBTableView1.Controller.EditingItem 当前编辑中的单元框cxGrid1DBTab 阅读全文

摘要： 分类快捷键解释备注组件设计类Escape选择当前组件容器Shift+Click选择多个组件；选择窗体Tab选择下一个组件Shift+Tab选择上一个组件方向键选择此方向的下一个组件Ctrl+方向键将所选组件的位置移动1个像素Shift+方向键将所选组件的大小改变1个像素Ctrl+Shift+方向键将所选组件的位置移动1个栅格Del删除所选组件Ctrl+鼠标拖动选择一个容器内的多个组件可以一起修改共同属性Tab(在ObjectInspector中使用)搜索属性或事件代码编辑类F1;Ctrl+F1光标所在单词的帮助Ctrl+Shift+Enter光标所在单词的参考Ctrl+Click(标识符)寻找 阅读全文