用DXScene三方控件开发的一个闹钟提醒

用dxscene开发的。在网上似乎这个的资源也挺少的。这是第一次玩dxscene。dxscene做出的效果是挺炫的。支持3d。程序里面用到的，翻转，半透明。有兴趣的朋友可以和我一起探讨，我的邮箱：ibleave60@sina.com uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, dx_scene, dx_vgcore, dx_vglayer, dx_ani, StdCtrls, IniFiles, StrUtils, mmSystem, superobject, ExtCtrls, Menus, uWarning; type TFrmMain = class(TForm) dxScene1: TdxScene; Root1: TdxVisualObject; WidgetLayout: TdxGUIObjectLayer; Root2: TvxLayout; Front: TvxRectangle; FloatAnimation: TdxFloatAnimation; Background1: TvxBackground; ToolBar1: TvxToolBar; tcList: TvxTabControl; cbAll: TvxCheckBox; btnEdit: TvxButton; lbContent: TvxLabel; VistaStyle: TvxResources; lyStole: TvxTabItem; Layout1: TvxLayout; lyDate: TvxTabItem; Layout2: TvxLayout; lyGood: TvxTabItem; Layout3: TvxLayout; CloseButton1: TvxCloseButton; Back: TvxRectangle; btnDel: TvxButton; tcSet: TvxTabControl; tiStole: TvxTabItem; Layout4: TvxLayout; tlDate: TvxTabItem; Layout5: TvxLayout; tiHealth: TvxTabItem; Layout6: TvxLayout; btnClose: TvxCloseButton; btnAdd: TvxButton; Label5: TvxLabel; tbHour: TvxTextBox; tbHour2: TvxTextBox; Label2: TvxLabel; Label6: TvxLabel; tbMin: TvxTextBox; tbMin2: TvxTextBox; Label3: TvxLabel; Label7: TvxLabel; Label4: TvxLabel; mmStole: TvxMemo; mmDaily: TvxMemo; Label8: TvxLabel; Label9: TvxLabel; cbDaily: TvxStringComboBox; Label10: TvxLabel; Label11: TvxLabel; Label12: TvxLabel; cbHealth: TvxStringComboBox; SpinBox: TvxSpinBox; Text1: TvxText; txtFlip: TvxText; txtMemo: TvxText; Label1: TvxLabel; Label13: TvxLabel; cbbFarm: TvxStringComboBox; tvHealth: TvxTreeView; tvFarm: TvxTreeView; TrayIcon: TTrayIcon; PopupMenu: TPopupMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; nClose: TMenuItem; Image1: TvxImage; tvDaily: TvxTreeView; txtNew: TvxText; txtPast: TvxText; procedure ToolBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); procedure btnEditClick(Sender: TObject); procedure btnDelClick(Sender: TObject); procedure txtFlipClick(Sender: TObject); //翻转特效 procedure btnAddClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure tbHourKeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); procedure tbMinKeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); procedure txtNewClick(Sender: TObject); procedure N1Click(Sender: TObject); procedure btnCloseClick(Sender: TObject); procedure N2Click(Sender: TObject); procedure nCloseClick(Sender: TObject); procedure txtPastClick(Sender: TObject); procedure cbAllClick(Sender: TObject); procedure tcListChange(Sender: TObject); procedure tvFarmChangeCheck(Sender: TObject); private FrmTime: TFrmWarning; FileName: string; lbTime, lbDaily, lbHealth: array of TvxLabel; jo: ISuperObject; //配置文件生成的json procedure PlayClockSound; procedure BackFlip; procedure QueryConfig(joNode: ISuperObject; Index: Integer; NodeType: Integer; IsDelete: Boolean = False); procedure ReadConfig; procedure WriteConfig; procedure OnTimerOneSecond(Sender: TObject); //3种类型提醒到时触发的事件 procedure OnDailyTimeOut(Sender: TObject); procedure OnHealthTimeOut(Sender: TObject); procedure CreateTreeNode; //根据JSON创建TreeNode procedure RefreshTreeNode; procedure RestoreWindow; public { Public declarations } end; var FrmMain: TFrmMain; const lsfw_lock = 1; lsfw_unlock = 2; function LockSetForegroundWindow(uLockCode: DWORD): BOOL; stdcall;external 'user32.dll';