2011年12月6日
全局热键在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)
2011年12月5日
滚动条应用
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; ScrollBar1: TScrollBar; Button1: TButton; Button2: TButton; Edit1: TEdit; procedure Button1Click(Se... 阅读全文
posted @ 2011-12-05 16:38 endsnow 阅读(149) 评论(0) 推荐(0)
组合框的应用
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ComboBox1: TComboBox; ComboBox2: TComboBox; ComboBox3: TComboBox; ComboBox4: TComboBox; GroupBox1: TGroupBox; Label1: TLabel; Label... 阅读全文
posted @ 2011-12-05 16:14 endsnow 阅读(236) 评论(0) 推荐(0)
RadioGroup示例
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) RadioGroup1: TRadioGroup; Label1: TLabel; procedure RadioGroup1Click(Sender: TObject); private { Private declarations } public ... 阅读全文
posted @ 2011-12-05 15:17 endsnow 阅读(144) 评论(0) 推荐(0)
RadioButton示例
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton; RadioButton4: TRadioButton; Label1: TLabel; proced... 阅读全文
posted @ 2011-12-05 15:09 endsnow 阅读(189) 评论(0) 推荐(0)
简单选课系统
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) GroupBox1: TGroupBox; GroupBox2: TGroupBox; Memo1: TMemo; CheckBox1: TCheckBox; CheckBox2: TCheckBox; CheckBox3: TCheckBox; ... 阅读全文
posted @ 2011-12-05 14:58 endsnow 阅读(176) 评论(0) 推荐(0)
SpeedButton示例
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Label1: TLabel; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpe... 阅读全文
posted @ 2011-12-05 14:34 endsnow 阅读(488) 评论(0) 推荐(0)