问与答 - 随笔分类(第7页) - 万一

删除或添加最大化、最小化按钮 - 回复 "Tommy the CAT" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/07/02/1202871.html#1242042 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia... 阅读全文

posted @ 2008-07-02 11:58 万一阅读(2334) 评论(11) 推荐(0)

一个用 GDI+ 给图片添加花边的例子 - 给 "sky123" 做的

摘要：按 "sky123" 的样图要求, 花边必须是透空的, 最好使用图元文件; 本例没有做完保存功能, 也没有实现整个图片的调整功能. 因为有测试图片, 给个源码下载吧: http://www.cnblogs.com/Files/del/sky123.rar 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysU... 阅读全文

posted @ 2008-07-01 17:31 万一阅读(4833) 评论(2) 推荐(0)

把整个窗体保存为图片的方法 - 回复 "乌龙哈里" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/27/1197961.html#1237665 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;... 阅读全文

posted @ 2008-06-27 10:13 万一阅读(4645) 评论(2) 推荐(0)

用 API 实现的获取文本容器中选择的文本 - 回复 "roy.flex" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/18/1083011.html#1229305 告诉 roy.flex 同学: 你的问题还是挺复杂的, 先要完成的就是这一步; 再往下做, 如果要捕获其他程序中的鼠标需要做 DLL; 不过还有个简单办法, 就是用 TTimer 定时获取, 这样也就不用钩子了; 但是还需要知道要操作对象的句柄,... 阅读全文

posted @ 2008-06-19 00:32 万一阅读(4961) 评论(15) 推荐(0)

获取已打开的所有记事本的标题

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

posted @ 2008-06-16 21:42 万一阅读(3539) 评论(5) 推荐(0)

给 "blog V5" 的关于 TrackBar 控件的简单例子

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/14/1220638.html#1225896 例一效果图: 例一代码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia... 阅读全文

posted @ 2008-06-14 20:45 万一阅读(2771) 评论(2) 推荐(0)

使窗口(和 MDI 子窗口)的关闭按钮变灰的方法 - 回复 "梦想成真"

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/14/1221980.html#1225922 //这样就可以使当前窗口的关闭按钮变灰, 但系统菜单中会有一条多余的线 var h: HMENU; begin h := GetSystemMenu(Handle, False); DeleteMenu(h, SC_CLOSE, MF_BY... 阅读全文

posted @ 2008-06-14 20:00 万一阅读(2787) 评论(2) 推荐(0)

获取鼠标当前位置坐标的方法 - 回复 "ps8.0" 同学

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/14/1218771.html#1225859 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; ty... 阅读全文

posted @ 2008-06-14 17:41 万一阅读(8062) 评论(8) 推荐(0)

问与答[2008-6-13] - 如何测试博客提供的代码?

摘要：如果测试本博客提供的测试代码? 如果有 "代码文件" 和 "窗体文件", 四步走: 1、新建工程(一般是 VCL Forms Application); 2、进入代码页(一般是 Unit1), 全选, 把 "代码文件" 贴入; 3、在窗体设计状态下(Design), 通过右键菜单或 Alt+F12 进入 "窗体代码" 页, 全选, 把 "窗体文件" 贴入; 4、运行! 如果只有 "代码文件",... 阅读全文

posted @ 2008-06-13 15:23 万一阅读(6862) 评论(9) 推荐(0)

关于动画移动矩形的例子 - 回复 "ps8.0" 同学

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/12/1131232.html#1224216 首先, 实现这个问题有两种方法: 1、边擦边画; 2、先在内存绘图然后再复制到前台, 就是所谓的双倍缓存. 本例使用的是比较传统的 "边擦边画" 法, 但现在更提倡使用 "双倍缓存" 法. 本例效果图(实际的动画效果比这个 gif 要好一些): 代... 阅读全文

posted @ 2008-06-13 00:23 万一阅读(2310) 评论(7) 推荐(0)

用 TClientDataSet 创建 XML 文件的过程 - 回复"丁永其"的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/12/1114450.html#1223758 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia... 阅读全文

posted @ 2008-06-12 11:32 万一阅读(1961) 评论(0) 推荐(0)

DupeString 与 StringOfChar 的区别 - 回复 "鹰@长空"

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/04/1101970.html#1217512 StringOfChar 是反复 "字符" 成 "字符串" 的函数; DupeString 是反复 "字符串" 成 "新字符串" 的函数; StringOfChar 来自 System 单元, 可以直接使用; DupeString 来自 StrUtils... 阅读全文

posted @ 2008-06-04 10:03 万一阅读(3682) 评论(3) 推荐(0)

Memo1.Lines.Add(s) 与 Memo1.Lines.Append(s) 的区别是什么? - 回复 "鹰@长空"

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/03/12/1101970.html#1217514 Memo1 的 Lines 属性是一个 TStrings 对象, TStrings.Append 就是调用的 TStrings.Add, 所以它们没有区别; 请用 "Ctrl+鼠标左键" 看看源码, 如下图: 阅读全文

posted @ 2008-06-04 09:39 万一阅读(5427) 评论(8) 推荐(0)

用 Memo 读取 UniCode 编码的文本文件 - 回复 "ahgan" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/05/29/1005631.html#1212654 首先, 这个问题到 Delphi 2008 时, 可能就不存在了, 因为那时的 TStrings 肯定支持 UniCode; 当前版本是 2007. unit Unit1; interface uses Windows, Messages, ... 阅读全文

posted @ 2008-05-29 13:18 万一阅读(4859) 评论(12) 推荐(0)

多维动态数组与多维动态数组指针 - 回复 "lz_whj" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/05/28/1208964.html#1211428 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, S... 阅读全文

posted @ 2008-05-28 11:48 万一阅读(4785) 评论(20) 推荐(0)

我是怎样给 Delphi 代码着色的 - 回复 "sunhj " 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/05/22/1101470.html#1205901 着色是通过 js 动态实现的, 只用到两个文件: del.js 和 del.css; 类似这样使用即可: //此处嵌入 Delphi 代码 //此处嵌入 C/C++ 代码因为是配合博客弄的, 博客也才有半年时间,... 阅读全文

posted @ 2008-05-22 14:43 万一阅读(2921) 评论(2) 推荐(0)

关于动态数组、静态数组转换为字符串的一些问题 - 给 "厨师" 的回复

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/05/21/1192113.html#1204252 首先, 只有字符类型的数组才可以直接转换为字符串! //这是静态数组的例子: var Arr: array[0..9] of Char; s: string; p: PChar; i: Integer; begin {给 Arr 赋... 阅读全文

posted @ 2008-05-21 18:15 万一阅读(5144) 评论(9) 推荐(0)

论证 Assigned(btn) 与 Assigned(@btn) 的区别 - 答复 "sunnet"

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/05/21/1101470.html#1204455 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;... 阅读全文

posted @ 2008-05-21 11:08 万一阅读(2417) 评论(2) 推荐(0)

关于 # 符号的使用 - 给 "厨师" 的回复

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/05/19/1089944.html#1203165 1、# 后面跟一个字符编码可以表示这个字符, 字符编码可以用十进制或十六进制表示; 譬如字符 "A" 的编码是 65(十进制) 或 $41(十六进制). ANSII 编码表参见: http://www.cnblogs.com/del/archive/20... 阅读全文

posted @ 2008-05-19 22:43 万一阅读(3379) 评论(9) 推荐(0)

关于 PChar 串的结束 - 给 "厨师" 的回复

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/05/19/1089437.html#1203173 PChar 串是以 Null 结束的, 或者说是以 "空字节" 结束的; PChar 串见到 "空字节" 就认作结束了; "空字节" 在 Delphi 中可以用 #0 或 Chr(0) 来表示. //举例: var pc: PChar; begi... 阅读全文

posted @ 2008-05-19 22:05 万一阅读(1757) 评论(1) 推荐(0)

随笔分类 - 问与答