开发工具:
文件大小: 723kb
下载次数: 0
上传时间: 2014-08-18
详细说明: 适合初学者 大牛就算啦 屏幕解锁程序密码为 gujiya 自己做得玩的 所有代码如下 unit Unit1; interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs pngimage ExtCtrls StdCtrls; type TForm1 class TForm Image1: TImage; Label1: TLabel; Timer1: TTimer; Button1: TButton; Edit1: TEdit; procedure Timer1Timer Sender: TObject ; procedure FormCreate Sender: TObject ; procedure FormKeyDown Sender: TObject; var Key: Word; Shift: TShiftState ; procedure Button1Click Sender: TObject ; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation const Password:String "gujiya"; {$R dfm} procedure TForm1 Button1Click Sender: TObject ; begin If Edit1 Text Password Then Close; end; procedure TForm1 FormCreate Sender: TObject ; begin Image1 Left: 0; Image1 Top: 0; Edit1 Visible : False; Button1 Visible : False; end; procedure TForm1 FormKeyDown Sender: TObject; var Key: Word; Shift: TShiftState ; begin If Key VK Space Then begin Edit1 visible: True; Button1 Visible : True; end end; procedure TForm1 Timer1Timer Sender: TObject ; begin Label1 Left: Random 1154 ; Label1 Top: Random 996 ; Label1 Font Size: Random 50 ; case Random 3 of 0:Label1 Font Color: CLyellow; 1:Label1 Font Color: CLred; 2:Label1 Font Color: CLgreen; end; end; end ">适合初学者 大牛就算啦 屏幕解锁程序密码为 gujiya 自己做得玩的 所有代码如下 unit Unit1; interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs pngimage ExtCtrls StdCtrls; type TForm1 class TForm Image1 [更多] ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台,提供交流渠道,下载内容来自于网络,除下载问题外,其它问题请自行百度。
- 本站已设置防盗链,请勿用迅雷、QQ旋风等多线程下载软件下载资源,下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载,请稍后再次尝试;或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎,请到消费记录里找到下载记录反馈给我们,经确认后退回积分.
- 如下载前有疑问,可以通过点击"提供者"的名字,查看对方的联系方式,联系对方咨询.