2011年12月6日
自定义函数举例
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; procedure Button... 阅读全文
posted @ 2011-12-06 16:57 endsnow 阅读(191) 评论(0) 推荐(0)
自定义过程举例
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; procedure Button... 阅读全文
posted @ 2011-12-06 16:11 endsnow 阅读(154) 评论(0) 推荐(0)
事件过程应用实例
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; procedure Butt... 阅读全文
posted @ 2011-12-06 15:23 endsnow 阅读(161) 评论(0) 推荐(0)
全局热键在Delphi中的应用实例
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private id: array [1..... 阅读全文
posted @ 2011-12-06 13:42 endsnow 阅读(397) 评论(0) 推荐(0)
MainMenu组件示例
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; MainMenu1: TMainMenu; S1: TMenuItem; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMen... 阅读全文
posted @ 2011-12-06 10:02 endsnow 阅读(255) 评论(0) 推荐(0)
公共对话框示例
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; FontDialog1: TFontDialog; ColorDialog1: TColorDialog; Button1: TBu... 阅读全文
posted @ 2011-12-06 09:06 endsnow 阅读(158) 评论(0) 推荐(0)
模拟数字时钟
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; RadioGroup1: TRadioGroup; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: ... 阅读全文
posted @ 2011-12-06 08:45 endsnow 阅读(134) 评论(0) 推荐(0)