[cyber922]

Помогите скомпилировать программу модальной заставки по коду.... Так как объясняет преподаватель в лекциях у меня не получается, версии delphi разные...

у меня много чего нет что там нужно.


Вот код

Код:

unit UMain;   //Модуль главной формы
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
 uses Ulog;
procedure TForm1.FormShow(Sender: TObject);
begin
Form2.ShowModal;
end;
end.

unit Ulog;   //Модуль формы-заставки
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, jpeg;
type
  TForm2 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
    procedure    FormKeyDown(Sender: TObject; var Key: Word Shift: TShiftState);
    procedure     Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin   Close;  end;
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin   Close;  end;
procedure TForm2.Timer1Timer(Sender: TObject);
begin close;  end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
end.

program PFlog;  //Главный модуль проекта
uses
  Forms,
  UMain in 'UMain.pas' {Form1},
  Ulog in 'Ulog.pas' {Form2};
{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

Заранее спасибо)