Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c