学习官方示例 - SysUtils.EncodeDate、EncodeTime、StrToDate、StrToTime、StrToDateTime
摘要:代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Button1...
阅读全文
posted @
2008-09-11 15:17
万一
阅读(10732)
推荐(0) 编辑
学习官方示例 - SysUtils.DecodeDate、DecodeTime
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button...
阅读全文
posted @
2008-09-11 14:31
万一
阅读(5778)
推荐(0) 编辑
学习官方示例 - System.RunError
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button...
阅读全文
posted @
2008-09-11 14:16
万一
阅读(5009)
推荐(0) 编辑
学习官方示例 - System.Frac: 返回小数部分
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button...
阅读全文
posted @
2008-09-11 14:09
万一
阅读(4720)
推荐(0) 编辑
学习官方示例 - System.Assigned
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton...
阅读全文
posted @
2008-09-11 00:50
万一
阅读(5435)
推荐(0) 编辑
学习官方示例 - System.TClass
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; ...
阅读全文
posted @
2008-09-11 00:38
万一
阅读(3485)
推荐(0) 编辑
学习官方示例 - System.Hi、System.Lo
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton...
阅读全文
posted @
2008-09-11 00:26
万一
阅读(3536)
推荐(0) 编辑
学习官方示例 - TForm.BorderIcons
摘要:本例用一行代码禁用了最大化按钮. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TO...
阅读全文
posted @
2008-06-21 12:25
万一
阅读(3931)
推荐(1) 编辑
学习官方示例 - TApplication.OnShowHint
摘要:代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLab...
阅读全文
posted @
2008-06-19 15:26
万一
阅读(3884)
推荐(0) 编辑
学习官方示例 - TApplication.OnMessage
摘要:本例演示了一个消息的定义、发送和接受的过程. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ...
阅读全文
posted @
2008-06-19 12:48
万一
阅读(6887)
推荐(0) 编辑
学习官方示例 - TApplication.OnException
摘要:本例演示了全局的异常捕获及处理, 并模拟激发了一个异常; 编译后, 单独运行一下生成的程序文件... 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type ...
阅读全文
posted @
2008-06-19 12:14
万一
阅读(4419)
推荐(0) 编辑
学习官方示例 - TApplication.OnDeactivate
摘要:本例功能: 切换窗口时让程序最小化. 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Se...
阅读全文
posted @
2008-06-19 11:52
万一
阅读(3125)
推荐(0) 编辑
学习官方示例 - TApplication.Icon
摘要:本例同时包含了 TOpenPictureDialog 控件的一些用法. 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtDlgs, StdCtrls; type TForm1 = cla...
阅读全文
posted @
2008-06-19 11:35
万一
阅读(3989)
推荐(0) 编辑
学习官方示例 - TApplication.ExeName
摘要:本例包含用 TFileStream 复制文件和用 ShellAPI.ShellExecute 打开文件夹的方法. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; ...
阅读全文
posted @
2008-06-19 10:48
万一
阅读(5055)
推荐(0) 编辑
学习官方示例 - TApplication.CreateForm
摘要:本例源码下载, 运行效果图: 制作过程: 1、新建工程后, 再添加 Form2、Form3、Form4、Form5; 2、在 Form5 上分别添加一个 TProgressBar、TLabel(使用默认名称); 3、打开工程源码(Project -> View Source), 贴入以下文件后运行. program Project1; uses Forms, SysUtils, ...
阅读全文
posted @
2008-06-19 09:24
万一
阅读(7925)
推荐(0) 编辑