aboutunit1.~pas

这是一个Delphi很好很全面知识的实例

unit AboutUnit1;

interface

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

type
  TAboutForm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Image: TImage;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutForm: TAboutForm;

implementation

uses mainUnit1;

{$R *.dfm}

procedure TAboutForm.Timer1Timer(Sender: TObject);//让字体行走
begin
label1.Top:=label1.top+5;
   if (label1.top)>(Panel2.Height) then
      label1.top:=label1.Height;
      label2.Top:=label2.top+5;
   if (label2.top)>(Panel2.Height) then
      label2.top:=-label2.Height;
      label3.Top:=label3.top+5;
   if (label3.top)>(Panel2.Height) then
      label3.top:=-label3.Height;
      label4.Top:=label4.top+5;
   if (label4.top)>(Panel2.Height) then
      label4.top:=-label4.Height;
end;

procedure TAboutForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  mainform.n10.Enabled:=true;
  free; //释放窗体
end;

end.