Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.29;
Скачать: CL | DM;

Вниз

Обновление меток   Найти похожие ветки 

 
sapsi   (2003-05-20 08:00) [0]

Добрый день. Есть такой код (в инициализации проекта) для отображения формы-заставки до загрузки главной формы (у которой при create - выполняется долгий скл запрос).

var zastavka: tform;
begin
Application.Initialize;
zastavka:=Tform.create(application);
try
zastavka.show;
Application.CreateForm(Tstatisticform, statisticform);
finally zastavka.close;
end;
Application.Run;
end.

Форма заставки отображается, а метки, картинки на ней- нет. В чем проблема?


 
Forester   (2003-05-20 08:12) [1]

Форма заставки должна получить сообщение о необходимости обновления. Добавь следующую строку:

...
zastavka.Show;
zastavka.Update;
...


 
sapsi   (2003-05-20 08:18) [2]

Спасибо, но это не помогало


 
Спрашивающий   (2003-05-20 08:44) [3]

{Попробовал динамически c Label отображается:
Всякие там заставки надо делать динамически. Статически
слишком жирно для них.}

program Project1;

uses
Forms,
Unit1 in "Unit1.pas" {Form1},
StdCtrls;

{$R *.RES}


var
zastavka: tform;
L:TLabel;
begin
Application.Initialize;

zastavka:=Tform.create(application);
L := TLabel.Create(zastavka);
with L do
begin
Parent := zastavka;
AutoSize := True;
Left := 2;
Top := 5;
Caption := "Привет.";
end;
try
zastavka.show;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TZastavka, Zastavka);
finally
// zastavka.close;
end;
Application.Run;
end.



end.


 
sapsi   (2003-05-20 08:48) [4]

только динамически? И image тоже динамически?
Другого способа нет?


 
Спрашивающий   (2003-05-20 09:06) [5]

Image := TImage.Create(Form);
with Image do
begin
Parent := Form;
Width := ************;
Height:=***********;
Left :=********** ;
Picture:=Загружай откуда хочишь;
end;
А вообще я проверил и статически все прорисовывается.
Что то ты делаешь не так.


 
sapsi   (2003-05-20 09:32) [6]

только динамически? И image тоже динамически?
Другого способа нет?


 
Андреев Павел   (2003-05-20 09:47) [7]

Попробуйте
SplashForm := TSplashForm.Create(nil);
with SplashForm do begin
Show;
Update;
end;
...
SplashForm.Free;


 
sapsi   (2003-05-20 10:07) [8]

спасибо, получилось...
стормозил.
надо было не экземпляр tform создавать, а нарисовать форму в дизайне и ее экземпляр создавать

var zastavka: tform;
begin
Application.Initialize;
zastavka:=Tzastavka.create(application); !!!
try
zastavka.show;
Application.CreateForm(Tstatisticform, statisticform);
finally zastavka.close;
end;
Application.Run;
end.




Страницы: 1 вся ветка

Текущий архив: 2003.05.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.018 c
1-94900
lipskiy
2003-05-14 21:01
2003.05.29
Как получить версию программы из нее самой


3-94757
DelAlanPhi
2003-05-06 20:39
2003.05.29
DBGrid vs Excel


14-95083
нов
2003-05-07 16:35
2003.05.29
как узнать путь к папке где храняться временные файлы?


1-94824
7Up
2003-05-19 14:42
2003.05.29
Хэндл у объекта


3-94698
yurikon
2003-05-07 17:57
2003.05.29
SELECT - 1,2,3,4,...