Delphi 代码
文章平均质量分 71
「已注销」
这个作者很懒,什么都没留下…
展开
-
添加到IE工具栏
首先要建立一个ActiveX Library。将其保存为MailIEBand.Dpr;然后建立一个COM Object,将其保存为BandUnit.pas;然后建立一个Form,这个窗口将作为子窗口显示在IE工具栏中,将窗口的BorderStyle属性改为bsNone,添加一个TButton组件和一个TComboBox组件,将TButton的Caption属性改为获取全部,然后将窗口文件其保存为I原创 2005-02-19 13:38:00 · 795 阅读 · 0 评论 -
支持XP下托盘栏气球提示的托盘单元
unit tray;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,Registry,ShellAPI, ComCtrls, StdCtrls, Buttons, Menus, ExtCtrls;const ICON_ID=3; NIF原创 2005-02-25 13:08:00 · 1108 阅读 · 0 评论 -
用Delphi7.0实现漂亮的汉字窗口
在可视化开发的时代,窗体是绝大部分应用程序的核心,但是开发者也许已对Windows一成不变的方形窗体感到厌烦。其实巧妙地使用API函数即可实现汉字形状的窗体。 本文的实例运行后将显示一个由“电脑报”三个汉字作为外形的窗体。当然你还可以利用本期讲的方法实现更有个性的汉字窗口。 设计思路 1使用BeginPath和EndPath函数为窗体定义路径。 2用PathToRegion将路径转换原创 2005-04-13 18:28:00 · 1067 阅读 · 0 评论 -
气泡提示窗口
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; proce转载 2006-05-27 09:17:00 · 923 阅读 · 0 评论 -
一元二次方程解
procedure TForm1.Button1Click(Sender: TObject);var delta,m,n:real; a,b,c:integer;begin a:=strtoint(edit1.Text); b:=strtoint(edit2.Text); c:=strtoint(edit3.Text); if a delta:=b*b-4*a*c; m:=-b/(转载 2006-06-05 13:37:00 · 831 阅读 · 0 评论 -
IME输入法编程
Windows9x系统下汉字输入法的基本原理 Windows系统下汉字输入法实际上是将输入的标准ascii字符串按照一定的编码规则转换为汉字或汉字串,进入到目的地。由于应用程序各不相同,用户不可能自己去设计转换程序,因此,汉字输入自然而然落到WINDOWS系统管理中。一、输入法与系统的关系 键盘事件 应用程序 | | Windows的USER.EXE转载 2006-06-18 09:19:00 · 289 阅读 · 0 评论 -
让 UltraEdit 支持 Delphi 语法高亮
请将其添加到 UltraEdit 安装路径下的 WORDFILE.TXT 文件的结尾即可。注意/L10改为你自己已经拥有语法的数量,例如你已经装了11个,就改为12。/L10"Delhpi" Nocase Line Comment = // Block Comment On = { Block Comment On Alt = (* Block Comment Off = } Block Comm转载 2006-06-11 08:38:00 · 752 阅读 · 0 评论 -
利用Delphi消息处理建立类似Windows开始菜单
Windows下的很多程序都有十分漂亮的菜单,例如Windows“开始”菜单左方从上到下的长条形的Windows Banner 又或者是向Word那样在每一个菜单条左边都有一个小图标,看到这些很Cool的菜单,你是否觉得自己的菜单显得单调乏味呢?不需要第三方控件,利用Delphi就可以实现上面的功能。 如果要实现自定义菜单就需要在绘制菜单时改变菜单的大小以适应在菜单上绘转载 2006-06-11 08:41:00 · 688 阅读 · 0 评论