ps_welcome.pas

来自「DELPHI5加SQL SERVER2000完成的进销存系统,具体哪些内容记不清」· PAS 代码 · 共 46 行

unit PS_welcome;

interface

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

type
  TF_welcome = class(TForm)
    Image1: TImage;
    L_text: TLabel;
    T_start: TTimer;
    procedure T_startTimer(Sender: TObject);
    procedure L_textClick(Sender: TObject);
  private
    { Private declarations }
  public
    
    { Public declarations }
  end;

var
  F_welcome: TF_welcome;

implementation

{$R *.DFM}

procedure TF_welcome.T_startTimer(Sender: TObject);
begin
  l_text.Left:=l_text.Left-5;
  if l_text.Left<128 then begin
    T_start.Enabled:=false;
//    l_text.Font:=l_text.font+
    end;
end;

procedure TF_welcome.L_textClick(Sender: TObject);
begin
  application.HelpCommand(help_finder,0);
  close;
end;

end.