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

Скрытие формы во время загрузки   Найти похожие ветки 

← →
Giperon ©   (2007-08-29 21:49) [0]

Здравствуйте, уважаемые эксперты!
Подскажите, пожалуйста, как скрыть дочернюю MDI-форму на время ее загрузки? Можно ли ее перекрыть заставочкой в это время?

---

← →
{RASkov} ©   (2007-08-29 22:00) [1]

> [0] Giperon ©   (29.08.07 21:49)

Убери ее(дочернюю MDI-форму) из AutoCreate, а после полной загрузки приложения создай ее "в ручки"....

---

← →
{RASkov} ©   (2007-08-29 22:03) [2]

> как скрыть дочернюю MDI-форму на время ее загрузки

Сорри... я неправильно понял...
показалось на загрузку приложения скрывать дочернюю....

А это вообще как так:
> дочернюю MDI-форму на время ее загрузки
?

---

← →
DVM ©   (2007-08-29 22:48) [3]

> Подскажите, пожалуйста, как скрыть дочернюю MDI-форму на
> время ее загрузки?

Переведите предложение на более доступный язык. Несколько раз прочитал - не понял что требуется. :(

Что представляет собой процесс загрузки MDI формы?
Зачем ее прятать?

---

← →
Slym ©   (2007-08-30 05:48) [4]

Долго заполняет форму данными? из дб подкачивает?
1. Сначала данные выкачиваешь
2. Потом MDIChild.Create...

---

← →
Юрий Зотов ©   (2007-08-30 06:48) [5]

В design-time ставим будущей дочерней форме FormStyle = fsNormal. Создаем ее так:

procedure TForm1.N11Click(Sender: TObject);
begin
 with TForm2.Create(Application) do
 begin
   ... // Дополнительные операции ДО показа формы, если они нужны
   FormStyle := fsMDIChild // Форма стала видимой
   ... // Дополнительные операции ПОСЛЕ показа формы, если они нужны
 end
end;

// ============================

procedure TForm2.FormCreate(Sender: TObject);
begin
 Screen.Cursor := crHourGlass;
 try
   ... // Операции, выполняемые при загрузке формы
   Sleep(3000) // Имитация длительной загрузки при тестировании
 finally
   Screen.Cursor := crDefault
 end
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action := caFree
end;


---

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

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



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