Форум: "Начинающим";
Текущий архив: 2007.09.23;
Скачать: [xml.tar.bz2];
ВнизСкрытие формы во время загрузки Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.09.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.046 c