[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.

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

[M.A.D.M.A.N.]

Какой курс? Какой ВУЗ?

[cyber922]

Сообщение от M.A.D.M.A.N.

Какой курс? Какой ВУЗ?

техникум.. вообще то 3й, но я поступил в него после 11 класса, и получилось что сразу на 2й курс.. Учусь всего год и то практически сам)

Модули присылают, а я делаю..)
P.s. модули у меня эт так называемая теория.

[M.A.D.M.A.N.]

Собс-но затруднения в каком месте? Простым копипастом не удастся скомпилить программу.

[cyber922]

Сообщение от M.A.D.M.A.N.

Собс-но затруднения в каком месте? Простым копипастом не удастся скомпилить программу.

Разный интерфейс у меня. Я не могу понять что куда вставить. Смотрю как там а у меня совсем по другому,....

[angvelem]

Ну так выложи рисунок того как должно получиться.
P.S. Забыли или специально не выслали dfm-файл/ы?

[cyber922]

Сообщение от angvelem

Ну так выложи рисунок того как должно получиться.
P.S. Забыли или специально не выслали dfm-файл/ы?

На форме заставки должно быть какое нибудь изображение, потом она закрывается и появляется основная форма.
dfm - файлы были, но вырубили свет они стёрлись... комп у меня привередливый к этому делу...(

[icWasya]

Сообщение от cyber922

На форме заставки должно быть какое нибудь изображение, потом она закрывается и появляется основная форма.
dfm - файлы были, но вырубили свет они стёрлись... комп у меня привередливый к этому делу...(

как-то так

Код:

//prohject.dpr

begin
  Application.CreateForm(TFormInit,FormInit);//создали форму заставку
  FormInit.Show;//сделали видимой
  FormInit.Update;//временно сделали главной

// а теперь создаём остальные формы
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);

  MainForm.Update;// теперь эта форма главная

  FormInit.Free;//убиваем заставку
// штатное продолжение
  Application.Run;
end;

[Pyro]

между
TFormX = class(TForm)
...........................
private
идёт список того, что надо положить на форму, и какие события назначить
дальше то, что надо вписать в события
свойства в objectinspector походу сам придумать должен
две формы должно быть

[cyber922]

Сообщение от Pyro

между
TFormX = class(TForm)
...........................
private
идёт список того, что надо положить на форму, и какие события назначить
дальше то, что надо вписать в события
свойства в objectinspector походу сам придумать должен
две формы должно быть

Ребят, спасибо огромное, код у меня есть ( он выше), мне просто нужно помочь собрать программу....