【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了，MC_About.pas，希望对大家有所帮助！

    unit MC_About;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      ExtCtrls, StdCtrls, Buttons;
    
    type
      TAbout = class(TForm)
        Image1: TImage;
        Bevel1: TBevel;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Timer1: TTimer;
        SpeedButton1: TSpeedButton;
        Label10: TLabel;
        Label11: TLabel;
        Label12: TLabel;
        Label13: TLabel;
        Label14: TLabel;
        Label8: TLabel;
        procedure FormShow(Sender: TObject);
        procedure FormHide(Sender: TObject);
        procedure Timer1Timer(Sender: TObject);
        procedure SpeedButton1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      About: TAbout;
    
    implementation
    
    {$R *.DFM}
    //使时间控件有效
    procedure TAbout.FormShow(Sender: TObject);
    begin
         Timer1.Enabled:=True;
    end;
    procedure TAbout.FormHide(Sender: TObject);
    begin
         Timer1.Enabled:=False;
    end;
    //动态显示版权信息
    procedure TAbout.Timer1Timer(Sender: TObject);
    Var g,b:integer;
    begin
         label1.Font.Color:=RGB(255,Random(g),Random(b));
         label12.Font.Color:=RGB(255,Random(g),Random(b));
    end;
    //退出关于窗体
    procedure TAbout.SpeedButton1Click(Sender: TObject);
    begin
         Close;
    end;
    
    end.
    

上一篇：MClass.pas
下一篇：[新闻文章]勇者天空文章主页v1_065567news10