[cyber922]

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

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


Вот код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69

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 - файлы были, но вырубили свет они стёрлись... комп у меня привередливый к этому делу...(

как-то так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

//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 походу сам придумать должен
две формы должно быть

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