unit20.pas

毕业设计

unit Unit20;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls, ExtCtrls, jpeg;
type
  TForm20 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
  private
    { Private declarations }
  public
    procedure Splash;
    { Public declarations }
  end;

var
  Form20: TForm20;

implementation

{$R *.DFM}
procedure TForm20.Splash;
 begin
  BorderStyle := bsNone;
  Show;
  Update;
 end;
end.