f_about.pas

用Delphi 开发的一个 户籍管理系统

unit f_about;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm, ActnList, SUIButton, StdCtrls, ComCtrls,
  RzEdit, RzAnimtr, ImgList, RzBorder, RzStatus, f_reg;

type
  Tfm_about = class(TForm)
    sfrm_about: TsuiForm;
    actlst_about: TActionList;
    act_OK: TAction;
    act_reg: TAction;
    btn_OK: TsuiButton;
    btn_reg: TsuiButton;
    edt_about: TRzRichEdit;
    il_1: TImageList;
    ani_1: TRzAnimator;
    mrqsts_about: TRzMarqueeStatus;
    tmr_ani: TTimer;
    procedure tmr_aniTimer(Sender: TObject);
    procedure act_regExecute(Sender: TObject);
    procedure act_OKExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_about: Tfm_about;
  I: Integer;
implementation

uses F_RDB;
{$R *.dfm}

procedure Tfm_about.tmr_aniTimer(Sender: TObject);
begin
  case I of
    0: mrqsts_about.BlinkColor := clLime;
    1: mrqsts_about.BlinkColor := clMaroon;
    2: mrqsts_about.BlinkColor := clGreen;
    3: mrqsts_about.BlinkColor := clOlive;
    4: mrqsts_about.BlinkColor := clNavy;
    5: mrqsts_about.BlinkColor := clPurple;
    6: mrqsts_about.BlinkColor := clTeal;
    7: mrqsts_about.BlinkColor := clGray;
    8: mrqsts_about.BlinkColor := clSilver;
    9: mrqsts_about.BlinkColor := clRed;
    10: mrqsts_about.BlinkColor := clYellow;
    11: mrqsts_about.BlinkColor := clBlue;
    12: mrqsts_about.BlinkColor := clFuchsia;
    13: mrqsts_about.BlinkColor := clAqua;
    14: mrqsts_about.BlinkColor := clLtGray;
    15: mrqsts_about.BlinkColor := clDkGray;
  else
    I := -1;
  end;
  I := I + 1;
end;

procedure Tfm_about.act_regExecute(Sender: TObject);
var
  m_reg: Tfm_reg;
begin
  m_reg := Tfm_reg.Create(nil);
  m_reg.Show;
end;

procedure Tfm_about.act_OKExecute(Sender: TObject);
begin
  Self.Close;
end;

end.