aboutf.pas

Delphi图像盖章程序源码,供大家参考。

unit aboutF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

type
  Tabout = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Image1: TImage;
    Bevel1: TBevel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Image2: TImage;
    AboutTime: TTimer;
    procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure AboutTimeTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  about: Tabout;
  AboutAddTime_no:integer;
implementation

{$R *.DFM}

procedure Tabout.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
about.Close;
end;

procedure Tabout.AboutTimeTimer(Sender: TObject);
begin
if image1.Visible = false
   then AboutAddTime_no:=AboutAddTime_no+1;

if AboutAddTime_no = 2
   then begin
   AboutAddTime_no:=0;
   AboutTime.enabled:=false;
   image1.Visible:=true;
   image2.Visible:=false;
about.Caption:='关于';
        end
end;

procedure Tabout.FormCreate(Sender: TObject);
begin
AboutAddTime_no:=0;
image1.Visible:=true;
image2.Visible:=false;
about.Caption:='关于';
end;

procedure Tabout.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
AboutTime.enabled:=true;
image1.Visible:=false;
image2.Visible:=true;
about.Caption:='程序设计人:白明<-未婚呦';
end;

end.