Как показать окно перед загрузкой основной программы.
Здравствуйте, я сделал программу у которой экзешник получился 2,5 мегабайта и базы которые она использует достаточно большие и когда запускаешь на исполнение программу то она открывается через 1 минуту. Скажите а можно какое нибуть окно показывать на экран типа там ИДЕТ ЗАГРУЗКА что пользователи не запускали 2,3,4 раза. Я где то читал что для этих целей служит компонента из набора компонент RX но какая, и как ее использовать я так и не нашел.
Цитата:
Originally posted by nice
Скажите а можно какое нибуть окно показывать на экран типа там ИДЕТ ЗАГРУЗКА что пользователи не запускали 2,3,4 раза.
Скажите а можно какое нибуть окно показывать на экран типа там ИДЕТ ЗАГРУЗКА что пользователи не запускали 2,3,4 раза.
$(Delphi)\Demos\Db\MastApp, Splash.pas/dfm
Подправь исходняк проекта:
[COLOR=blue]
program SplashProject;
uses
Forms, Windows,
MainUnit in 'MainUnit.pas' {MainForm},
SplashUnit in 'SplashUnit.pas' {SplashForm};
{$R *.res}
begin
SplashForm:=TSplashForm.Create(nil);
SplashForm.Show;
SplashForm.Repaint;
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
SplashForm.Hide;
SplashForm.Free;
Application.Run;
end.
[/COLOR]
[COLOR=blue]
program SplashProject;
uses
Forms, Windows,
MainUnit in 'MainUnit.pas' {MainForm},
SplashUnit in 'SplashUnit.pas' {SplashForm};
{$R *.res}
begin
SplashForm:=TSplashForm.Create(nil);
SplashForm.Show;
SplashForm.Repaint;
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
SplashForm.Hide;
SplashForm.Free;
Application.Run;
end.
[/COLOR]
Цитата:
Originally posted by Freez
Подправь исходняк проекта:
[COLOR=blue]
program SplashProject;
uses
Forms, Windows,
MainUnit in 'MainUnit.pas' {MainForm},
SplashUnit in 'SplashUnit.pas' {SplashForm};
{$R *.res}
begin
SplashForm:=TSplashForm.Create(nil);
SplashForm.Show;
SplashForm.Repaint;
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
SplashForm.Hide;
SplashForm.Free;
Application.Run;
end.
[/COLOR]
Подправь исходняк проекта:
[COLOR=blue]
program SplashProject;
uses
Forms, Windows,
MainUnit in 'MainUnit.pas' {MainForm},
SplashUnit in 'SplashUnit.pas' {SplashForm};
{$R *.res}
begin
SplashForm:=TSplashForm.Create(nil);
SplashForm.Show;
SplashForm.Repaint;
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
SplashForm.Hide;
SplashForm.Free;
Application.Run;
end.
[/COLOR]
Это надежнее :
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
Application.Initialize;
with TForm2.Create(Application) do
try
Show;
Update;
Application.CreateForm(TForm1, Form1);
finally
Free;
end;
Application.Run;
end.
Здравствуй Delpher ну если можно распиши свой код который ты мне написал а то что то у меня не выходит. Вместо твоего TForm2.Create(Application) я должен поставить свою формочку которая будет отображаться при загрузке программы правильно или нет, для чего нужет Update; и что значит Free; и почему надо писать TForm2.Create(Application) а нельзя скажем aboutbox.show.
Всё! Большое спасибо получилось только я немного сделал по другому
with TForm18.Create(Application) do
try
Show;
Update;
//Application.CreateForm(TForm1, Form1);
// Application.CreateForm(TForm18, Form18);
finally
//Free;
end;
Отключил две строки и я сначала пробывал форму aboutbox и была какая то херня а когда вызвал простую форму то все стало просто отлично. Но только моя форма загаралась и сразу тухла после того как я отключил Free форма не тухнет и светится до самой загрузки основной формы.
СПАСИБО!
with TForm18.Create(Application) do
try
Show;
Update;
//Application.CreateForm(TForm1, Form1);
// Application.CreateForm(TForm18, Form18);
finally
//Free;
end;
Отключил две строки и я сначала пробывал форму aboutbox и была какая то херня а когда вызвал простую форму то все стало просто отлично. Но только моя форма загаралась и сразу тухла после того как я отключил Free форма не тухнет и светится до самой загрузки основной формы.
СПАСИБО!