开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 教育系统应用 > 查看源码
uAbout.pas
资源名称：辩论赛计时器.rar　[点击查看]
上传用户：pegasus
上传日期：2013-04-14
资源大小：3825k
文件大小：1k
源码类别：

教育系统应用

开发平台：

Delphi

uAbout.pas：源码内容
  1. unit uAbout;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls,ShellAPI, jpeg;
  9. type
  10.   TFormAbout = class(TForm)
  11.     Image1: TImage;
  12.     Label1: TLabel;
  13.     Label4: TLabel;
  14.     Label2: TLabel;
  15.     BtnOK: TButton;
  16.     Label3: TLabel;
  17.     procedure Label2Click(Sender: TObject);
  18.     procedure Label2MouseEnter(Sender: TObject);
  19.     procedure Label2MouseLeave(Sender: TObject);
  20.     procedure BtnOKClick(Sender: TObject);
  21.   private
  22.     { Private declarations }
  23.   public
  24.     { Public declarations }
  25.   end;
  27. var
  28.   FormAbout: TFormAbout;
  30. implementation
  32. {$R *.dfm}
  34. procedure TFormAbout.Label2Click(Sender: TObject);
  35. begin
  36.    Shellexecute(handle,nil,pchar('mailto:guangbin240@yahoo.com.cn'),nil,
  37.   nil,sw_shownormal);
  38. end;
  40. procedure TFormAbout.Label2MouseEnter(Sender: TObject);
  41. begin
  42.   Label2.Font.Color:=clBlue;
  43. end;
  45. procedure TFormAbout.Label2MouseLeave(Sender: TObject);
  46. begin
  47.   Label2.Font.Color:=clBlack;
  48. end;
  50. procedure TFormAbout.BtnOKClick(Sender: TObject);
  51. begin
  52.   Close;   //  关闭窗体
  53. end;
  55. end.