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

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

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

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

将 4 个 Byte 合成 1 个 Integer 的五种方法 - 回复 "三足乌" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2010/04/21/1717584.html#1809298 阅读全文

posted @ 2010-04-24 16:13 万一阅读(6480) 评论(5) 推荐(0) 编辑

关于 "高位" 与 "低位" - 回复 "Lovemit" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/09/11/1288760.html#1807074本话题会涉及到: Lo、Hi、HiByte、LoWord、HiWord、MakeWord、MakeLong、Int64Rec譬如有一个 Cardinal 类型的整数: 1144201745其十六进制的表示是: $44332211其二进制表示是: 01000100 00110011 00100010 00010001我们说 Cardinal 是 32 位的整数, 这里的位是指 "二进制的位数", 不信你数数.我们需要重点面对的是十六进阅读全文

posted @ 2010-04-21 21:18 万一阅读(7563) 评论(16) 推荐(1) 编辑

如何把类中的方法做参数 - 回复 "林Lin☆☆" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/08/15/1268301.html#1806783 阅读全文

posted @ 2010-04-21 16:03 万一阅读(3829) 评论(5) 推荐(0) 编辑

简单的 "双缓冲" 绘图的例子 - 回复 "TookiQ" 的问题

摘要：所谓双缓冲就是先画到内存画布(如: TBitmap), 然后再转帖到目的地.譬如下面小程序:改为双缓冲绘图可以是:TookiQ 需要的是 GDI+ 的, 道理都一样. 阅读全文

posted @ 2010-04-19 23:44 万一阅读(6675) 评论(0) 推荐(0) 编辑

TPageControl 上有多个 TWebBrowser 时, 如何协调 Back、Forward - 回复 "飘逸的蓝" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2007/12/13/993840.html#1804933代码:窗体:把上面的例子全部改成动态建立的方法(在之前的窗体上多加一个 Button4 用于添加页面): 阅读全文

posted @ 2010-04-19 22:58 万一阅读(4791) 评论(20) 推荐(0) 编辑

如何放缩 TWebBrowser 中的页面 - 回复 "飘逸的蓝" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/13/1410935.html#1803351TWebBrowser 调用的是 IE, 放缩页面是在 IE7 之后才支持的.准备工作:1、添加 WebBrowser1、Button12、激活窗体的 OnCreate 事件、激活 Button1 的 OnClick 事件.代码如下: 阅读全文

posted @ 2010-04-16 16:51 万一阅读(4699) 评论(7) 推荐(0) 编辑

如何在数据表中存取图片 - 回复 "三足乌" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/05/28/1491186.html#1801853准备工作:1、在空白窗体上添加: ClientDataSet1、Button12、激活窗体的 OnCreate 事件、激活 Button1 的 OnClick 事件实现代码: 阅读全文

posted @ 2010-04-14 21:20 万一阅读(5292) 评论(6) 推荐(1) 编辑

如何让 TreeView 的列表项携带数据、并读出或删除这个数据 - 回复 "Splendour" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/12/18/1627110.html#1799657准备工作:1、在空白窗体上添加 TreeView1 和 Button12、激活窗体的 OnCreate 事件, 激活 TreeView 的 OnDblClick 事件全部代码如下: 阅读全文

posted @ 2010-04-12 20:59 万一阅读(5253) 评论(32) 推荐(0) 编辑

如何删除动态数组的指定元素 - 回复 "Splendour" 的部分问题

摘要：有时使用动态数组的指针更方便, 简单修改即可: 阅读全文

posted @ 2010-04-12 11:37 万一阅读(4604) 评论(5) 推荐(0) 编辑

"岛主" 同学给我出的算法题

摘要：问题来源: http://www.cnblogs.com/del/archive/2010/04/09/1708619.html#1798022问题描述 - 给出几组数值范围, 如:组一: 2..5组二: 3..6组三: 1..8组四: 2..10...然后从每组中选一个数字, 依次排列成一个新的数字, 需要列出所有排列方式.实现代码:本例测试结果: 阅读全文

posted @ 2010-04-11 12:10 万一阅读(3248) 评论(6) 推荐(0) 编辑

如何使用 URLOpenStream 函数 - 回复 "天泽" 的问题

摘要：URLOpenStream 和 URLDownloadToFile 类似, 都是下载文件的 COM 函数;前者是下载到 IStream 流, 后者是直接下载到指定路径; 不如后者使用方便.它们都声明在 UrlMon 单元, 本例还要同时 uses ActiveX, 因为要用到 IStream 接口.IBindStatusCallback 接口有八个方法(或事件), 用到用不到都得给简单实现下;我们... 阅读全文

posted @ 2010-04-09 21:29 万一阅读(8485) 评论(9) 推荐(1) 编辑

输出用空格对齐字符串的函数 - 回复 "老A123" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2007/12/18/1005161.html#1786227 阅读全文

posted @ 2010-03-24 16:47 万一阅读(2926) 评论(2) 推荐(0) 编辑

获取打开的记事本中的内容 - 回复 "ymg1103" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/11/15/1334237.html#1784570 阅读全文

posted @ 2010-03-23 10:44 万一阅读(4738) 评论(13) 推荐(1) 编辑

通过消息跨进程发送与接收 TCopyDataStruct 数据 - 回复 "skymesh"

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/10/09/1579614.html#1779614这几天家有病人, 几天没上网了; 看到这个问题我会, 顺便回复了.发送代码:接收代码:该代码已在 Delphi 2010 下测试过了.发现 skymesh 朋友对消息操作不是太熟, 顺便告知个小技巧(其实博客中可能早提到过):在 TForm1 = clas... 阅读全文

posted @ 2010-03-15 18:24 万一阅读(6133) 评论(7) 推荐(0) 编辑

用 SuperObject 解析淘宝上的 Json 数据 - 回复 "macrolen" 的问题

摘要：macrolen 给了这样一些数据, 说是用淘宝的 API 获取的 JSON 数据, 让我帮助解析:{"items_search_response":{"item_search":{"item_categories":{"item_category":[{"category_id":150708,"count":66},{"category_id":50002480,"count":93},{"c... 阅读全文

posted @ 2010-01-18 18:18 万一阅读(13605) 评论(16) 推荐(0) 编辑

如何用 GDI 绘制阴影文字 - 回复 "Splendour" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2010/01/09/1643019.html#1746542procedure TForm1.FormPaint(Sender: TObject);var x,y: Integer; str: string;begin x := 10; y := 10; str := '今天'; Canvas.Font... 阅读全文

posted @ 2010-01-14 09:58 万一阅读(5292) 评论(12) 推荐(0) 编辑

如何把几张相同大小的图片拼合在 TImage 中 - 回复 "jxjjljf" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/01/09/1373051.html#1743248procedure TForm1.Button1Click(Sender: TObject);var Bits: array[0..5] of TBitmap; { 假定有 6 张相同大小的图片需要拼合 } i,n,x,y: Integer; { n ... 阅读全文

posted @ 2010-01-09 16:44 万一阅读(3359) 评论(13) 推荐(0) 编辑

一句话复制整个文件夹(当然包括嵌套文件夹) - 回复 "张哆哆" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/10/16/1584660.html#1742606使用的是 Delphi 2010 下 IOUtils 单元的 TDirectory.Copy 函数:uses IOUtils;procedure TForm1.Button1Click(Sender: TObject);const SourceDir =... 阅读全文

posted @ 2010-01-08 12:24 万一阅读(10465) 评论(18) 推荐(0) 编辑

如何用 GDI+ 高质量地缩放图片 - 回复 "程序牛" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2010/01/07/1641084.html#1742127程序使用了 GDI+ 的新接口: http://www.cnblogs.com/del/archive/2009/12/11/1621790.htmluses GdiPlus;procedure TForm1.Button1Click(Sender: TO... 阅读全文

posted @ 2010-01-07 17:53 万一阅读(6712) 评论(2) 推荐(0) 编辑

随笔分类 - 问与答