Delphi 其他小技巧 - 随笔分类 - 万一

如何用弹出窗口显示进度 - 回复 "嘿嘿嘿" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2010/01/08/1642072.html#1820853准备工作: 在空白窗体上添加 Button 和 Timer, 并分别激活它们的默认事件.运行效果图: 阅读全文

posted @ 2010-05-10 17:05 万一阅读(9277) 评论(9) 推荐(1) 编辑

一个拼图工具的制作思路 - 回复 "AlwaysBug" 的问题

摘要：测试简图:功能简介:1、双击左窗口可打开源图像;2、框选左窗口可把图像选取复制到右窗口;3、剪取的图块可以移动, 可配合 Ctrl 单选或多选, 可用 Delete 删除选择的图块;4、双击右窗口可保存拼好的图像.功能实现:1、MoveImage 主要完成 "图块" 的功能;2、ImageBox 主要完成源图像及选取功能;3、其他有主模块 Unit1 完成.窗体:Unit1:ImageBox:Mo... 阅读全文

posted @ 2010-04-24 23:41 万一阅读(6713) 评论(18) 推荐(0) 编辑

Delphi 的编码与解码(或叫加密与解密)函数

摘要：EncdDecd 单元: EncodeString、DecodeString、EncodeBase64、DecodeBase64uses EncdDecd;const str = '万一的 Delphi 博客';procedure TForm1.Button1Click(Sender: TObjec... 阅读全文

posted @ 2009-11-13 16:15 万一阅读(18593) 评论(22) 推荐(1) 编辑

使用 IXMLHTTPRequest 简单获取网页源代码

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Cli... 阅读全文

posted @ 2009-10-27 21:05 万一阅读(10743) 评论(13) 推荐(0) 编辑

使 SaveDialog 对话框的文件名选择变灰 - 回复 "delphan" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/18/1410030.html#1480550 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Di... 阅读全文

posted @ 2009-03-18 23:01 万一阅读(4730) 评论(13) 推荐(0) 编辑

用 GetEnvironmentVariable 获取常用系统环境变量

摘要：以前曾用 GetWindowsDirectory、GetSystemDirectory、GetTempPath 等函数获取系统常用文件夹;也用过 SHGetSpecialFolderLocation、SHGetPathFromIDList 函数获取过更多常用路径;但这都不如用 GetEnvironmentVariable 获取系统变量来得快.//譬如 %WINDIR% 是表示系统目录的系统变量, ... 阅读全文

posted @ 2009-02-22 23:52 万一阅读(24326) 评论(3) 推荐(3) 编辑

模拟点击网页中的按钮 - 回复 "starcraft_ly" 的问题

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw; type TForm1 = class(TForm) WebB... 阅读全文

posted @ 2009-01-07 11:08 万一阅读(16253) 评论(31) 推荐(1) 编辑

模拟一个带背景的 TPanel

摘要：程序中用 TPanel 做了容器, 需要给它一个背景图片; 发现这竟是个难题! 发现我经常使用的滚动箱控件 TScrollBox, 是一个很好的替代品. 本例需要先添加两个图片资源, 添加方法可以参考: http://www.cnblogs.com/del/archive/2008/08/23/1274591.html 本例效果图: 代码文件: unit Unit1; interf... 阅读全文

posted @ 2008-09-01 16:59 万一阅读(8466) 评论(12) 推荐(0) 编辑

实现无标题栏但有边框的窗口

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; ... 阅读全文

posted @ 2008-08-29 14:45 万一阅读(7209) 评论(22) 推荐(1) 编辑

在 Delphi 中调用 JavaScript(2)

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Butto... 阅读全文

posted @ 2008-08-06 01:59 万一阅读(22872) 评论(8) 推荐(0) 编辑

如何获取重载函数的地址 - 回复 "flq_00000" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/07/30/1039045.html#1272783 在编译器看来, 重载函数根本就是完全不同的几个函数, 当然就会有不同的函数地址; 我们用常规方法获取的地址只是第一种重载的地址. 代码文件: unit Unit1; interface uses Windows, Messages, SysUt... 阅读全文

posted @ 2008-07-30 23:46 万一阅读(4530) 评论(6) 推荐(0) 编辑

在 Delphi 中调用 JavaScript(1) - 回复 "fancy" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/07/30/1256669.html#1272732 源码下载: http://files.cnblogs.com/del/Dephi-JavaScript.rar 本例测试用的 Html 文件(包含三个要测试的 Js 函数): 本例效果图: 代码文件: unit Uni... 阅读全文

posted @ 2008-07-30 22:06 万一阅读(10680) 评论(23) 推荐(1) 编辑

启动控制面板各窗口

摘要：首先复习怎样调用外部程序: Delphi 运行外部程序是使用 Windows.WinExec 或 ShellAPI.ShellExecute, 譬如: WinExec('notepad.exe', SW_NORMAL); {打开记事本} WinExec('regedit.exe', SW_NORMAL); {打开注册表编辑器} DLL 文件与 EXE 文件的主要区别就是 EXE 可以直接... 阅读全文

posted @ 2008-07-26 21:23 万一阅读(3301) 评论(3) 推荐(0) 编辑

使用 {$INCLUDE} 或 {$I} 指令管理和调用自定义函数

摘要：这是一个简单、方便而又实用的小技巧. 譬如这段代码中有四个定义函数: MyAdd、MyDec、MyMul、MyDiv我们可以把其中的自定义函数(也可以是其他代码)剪切保存在一个文本文件中(譬如是: C:\DelphiFun\MyFun.inc); 然后在原来代码的位置用 {$INCLUDE C:\DelphiFun\MyFun.inc} 或 {$I C:\DelphiFun\MyFun.inc} ... 阅读全文

posted @ 2008-06-06 12:42 万一阅读(6788) 评论(5) 推荐(0) 编辑

隐藏桌面图标和任务栏

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; CheckBox2: T... 阅读全文

posted @ 2008-05-20 11:20 万一阅读(5503) 评论(5) 推荐(0) 编辑

WinAPI: GetKeyNameText - 根据键盘消息获取按键名称

摘要：本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); ... 阅读全文

posted @ 2008-05-02 17:51 万一阅读(8781) 评论(18) 推荐(0) 编辑

创建异形窗口[6]

摘要：本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; procedure ... 阅读全文

posted @ 2008-05-01 11:24 万一阅读(2991) 评论(0) 推荐(0) 编辑

不使用标题栏拖动窗体

摘要：方法一、二、三效果图:方法四效果图:方法一:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject;... 阅读全文

posted @ 2008-04-30 22:26 万一阅读(5876) 评论(6) 推荐(0) 编辑

创建异形窗口[5]

摘要：本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedur... 阅读全文

posted @ 2008-04-30 22:23 万一阅读(3143) 评论(0) 推荐(0) 编辑

创建异形窗口[4]

摘要：本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; ... 阅读全文

posted @ 2008-04-30 21:39 万一阅读(3121) 评论(2) 推荐(0) 编辑

随笔分类 - Delphi 其他小技巧