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

详解 EnumWindows 与 EnumWindowsProc - 回复 "SplendourChiang" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/10/16/1584488.html#1727205// EnumWindows 的功能是遍历所有顶层窗口function EnumWindows( lpEnumFunc: TFNWndEnumProc; {回调函数指针} lParam: LPARAM {给回调函数的参数, 它对应回调函数的第二个参数}... 阅读全文

posted @ 2009-12-18 13:22 万一阅读(14318) 评论(16) 推荐(0) 编辑

如何打开记事本并显示指定内容 - 回复 "苦苦苦" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/10/27/1590975.html#1696167procedure TForm1.Button1Click(Sender: TObject);var hEdit: HWND; str: string;begin str := '准备要添加到记事本的字符串'; WinExec('Notepad.e... 阅读全文

posted @ 2009-11-12 13:05 万一阅读(3277) 评论(18) 推荐(0) 编辑

动态数组传递数据示例 - 回复 YinGaGa 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/10/14/1310583.html#1673278unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TF... 阅读全文

posted @ 2009-10-16 14:03 万一阅读(5046) 评论(22) 推荐(0) 编辑

系统托盘组件 TTrayIcon 简介 - 回复 "三足乌" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/06/05/1496857.html#1549294TTrayIcon 的主要属性:TrayIcon.Icon指定托盘图标, 有几种用法:1、设计时选择;2、把一个 TIcon 对象给它;3、使用当前程序图标: TrayIcon1.Icon := Application.Icon;4、TrayIcon1.S... 阅读全文

posted @ 2009-06-05 18:09 万一阅读(7430) 评论(17) 推荐(0) 编辑

如何把窗体关闭到系统托盘 - 回复 "三足乌" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/05/15/1458017.html#1549351代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, St... 阅读全文

posted @ 2009-06-05 17:27 万一阅读(4455) 评论(5) 推荐(0) 编辑

简单实现系统托盘 - 回复 "闪" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/01/17/1043226.html#1548952使用 Delphi 提供的 TTrayIcon 类, 两三行程序甚至不写程序(设计时选择几下)即可实现.设计时的准备工作:1、添加 TTrayIcon、TPopupMenu 控件, TPopupMenu 用于托盘的右键菜单.2、随意给 TPopupMenu... 阅读全文

posted @ 2009-06-05 12:15 万一阅读(5093) 评论(7) 推荐(1) 编辑

禁止用鼠标拖动窗口的大小 - 回复 "合肥的石头" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/05/15/1458017.html#1534170//方法一, 同 BorderStyle := bsSingle;unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, F... 阅读全文

posted @ 2009-05-21 15:50 万一阅读(2913) 评论(9) 推荐(0) 编辑

图片的居中、拉伸与平铺 - 回复 "我是一只想飞的小小鸟" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/11/04/1326105.html#1533947本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtr... 阅读全文

posted @ 2009-05-21 12:27 万一阅读(3722) 评论(20) 推荐(0) 编辑

转换 Byte 数组到 ... - 回复 "高群" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/21/1410030.html#1483614 {转换 TBytes 到 Integer} procedure TForm1.Button1Click(Sender: TObject); var bs: TBytes; {TBytes 就是 Byte 的动态数组} i: Integer; ... 阅读全文

posted @ 2009-03-21 22:16 万一阅读(5320) 评论(23) 推荐(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 万一阅读(4737) 评论(13) 推荐(0) 编辑

显示 jpg、png、gif 图片及 gif 动画 - 回复 "格兰特" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/15/1412384.html#1477470 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls... 阅读全文

posted @ 2009-03-15 23:00 万一阅读(4652) 评论(16) 推荐(0) 编辑

如何获取图片中第一个像素的颜色值? - 回复 "格兰特" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/15/1410030.html#1477217 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrl... 阅读全文

posted @ 2009-03-15 12:43 万一阅读(4037) 评论(7) 推荐(0) 编辑

如何比较两个二维数组是否相等 - 回复 "阿拉丁" 的问题

摘要：一句话: 用 CompareMem 对比内存即可. {对比静态数组} procedure TForm1.Button1Click(Sender: TObject); var arr1: array[0..3] of AnsiChar; arr2: array[0..3] of Byte; begin arr1[0] := 'A'; arr1[1] := 'B'; arr1[2] ... 阅读全文

posted @ 2009-03-13 11:15 万一阅读(5608) 评论(9) 推荐(0) 编辑

制作放两个小图片的按钮 - 回复 "xhui" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/12/1409708.html#1475240 本例效果图: 自定义的类(TMyButton): unit Unit2; interface uses Windows, Messages, Classes, Graphics, StdCtrls; type TMyButton ... 阅读全文

posted @ 2009-03-12 18:27 万一阅读(3708) 评论(7) 推荐(0) 编辑

分别使用静态数组与动态数组建立一个区域 - 回复 "老A123" 的问题

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

posted @ 2009-03-12 15:47 万一阅读(3298) 评论(6) 推荐(0) 编辑

读十六进制文本到 Btye 数组的函数 - 回复 "峰哥！！！" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/10/1407220.html#1472741 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, St... 阅读全文

posted @ 2009-03-10 13:09 万一阅读(3696) 评论(11) 推荐(0) 编辑

读文件到十六进制的函数(Delphi 7 下可用) - 回复 "峰哥！！！" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/09/1284244.html#1472084 {函数} function ReadFileToHex(FileName: string): string; var b: Byte; begin Result := ''; if not FileExists(FileName) the... 阅读全文

posted @ 2009-03-09 18:18 万一阅读(4165) 评论(9) 推荐(1) 编辑

写一个可拖动的 TShape - 回复 "韦韦" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/09/1234066.html#1471535 本例效果图: 自定义类(TMyShape)单元 : unit Unit2; interface uses Classes, Controls, ExtCtrls; type TMyShape = class(TShape) pr... 阅读全文

posted @ 2009-03-09 11:15 万一阅读(3398) 评论(2) 推荐(0) 编辑

给 Edit 两个可选值 - 回复 "delphi学习中" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/05/1345752.html#1468654 procedure TForm1.Edit1Click(Sender: TObject); const arr: array[-1..0] of string = ('man', 'woman'); begin Edit1.Tag := n... 阅读全文

posted @ 2009-03-05 16:23 万一阅读(2483) 评论(8) 推荐(0) 编辑

再说变体结构 - 回复 "彬" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/03/01/1032376.html#1464477 假如有这样三种结构, 分别来描述: 直线、圆与三角形: type {描述直线的结构} TLine = packed record ID: Integer; {编号} x1,y1: Integer; {第一点} x... 阅读全文

posted @ 2009-03-02 13:21 万一阅读(4733) 评论(15) 推荐(1) 编辑

随笔分类 - 问与答