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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
frmAbouts.pas
资源名称：挡案管理系统.rar　[点击查看]
上传用户：szruida
上传日期：2007-06-01
资源大小：6518k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

frmAbouts.pas：源码内容
  1.             unit frmabouts;
  3. interface
  5. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  6.   Buttons, ExtCtrls, XPMenu, jpeg, Shellapi, TFlatButtonUnit,
  7.   TFlatPanelUnit;
  9. type
  10.   TfrmAbout = class(TForm)
  11.     FlatButton1: TFlatButton;
  12.     FlatPanel1: TFlatPanel;
  13.     ProductName: TLabel;
  14.     Version: TLabel;
  15.     Copyright: TLabel;
  16.     lblemail: TLabel;
  17.     Image1: TImage;
  18.     procedure lblemailClick(Sender: TObject);
  19.     procedure lblemailMouseEnter(Sender: TObject);
  20.     procedure lblemailMouseLeave(Sender: TObject);
  21.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  22.     procedure FlatButton1Click(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  29. var
  30.   frmAbout: TfrmAbout;
  32. implementation
  34. {$R *.dfm}
  36. procedure TfrmAbout.lblemailClick(Sender: TObject);
  37. begin
  38.   ShellExecute(self.Handle, nil, 'www.elang.coa.net', nil, nil, sw_ShowNormal);
  39. end;
  41. procedure TfrmAbout.lblemailMouseEnter(Sender: TObject);
  42. begin
  43.   lblemail.Font.Color := clBlue;
  44. end;
  46. procedure TfrmAbout.lblemailMouseLeave(Sender: TObject);
  47. begin
  48.   lblemail.Font.Color := clWindowText;
  49. end;
  51. procedure TfrmAbout.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  52. begin
  53.   AnimateWindow(self.Handle, 1800, AW_HIDE + AW_CENTER + AW_BLEND);
  54. end;
  56. procedure TfrmAbout.FlatButton1Click(Sender: TObject);
  57. begin
  58.   close();
  59. end;
  61. end.