| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с формой [D5]

Orc ©   (2002-08-15 07:02:00) 

Трабл в следующем. Необходимо чтобы появившаяся заставка при загрузке приложения держалась на рабочем столе столько времени пока в основной форме не загрузится база. Баз данных несколько. Также необходимо отображать словами какой процесс идет. Всем спасибо!

---

Севостьянов Игорь   (2002-08-15 12:25:00) [1]

Только немног не так - вместо
Hide;
Free;
Screen.Cursor := crHourGlass;
Application.Run;


Hide;
Free;
Screen.Cursor := crDefault;
Application.Run;

---

Севостьянов Игорь   (2002-08-15 12:23:00) [2]

program MyProgram;
...
begin
Application.Title := "Рассылка сообщений";
Screen.Cursor := crHourGlass;
frmSplash := TfrmSplash.Create(Application);
with frmSplash do
try
Show;
UpdateWindow(Handle);
Application.Initialize;
Application.CreateForm(TdmData, dmData);
if not dmData.ADOConnection.Connected then
begin
Application.MessageBox("Не могу соединиться c БД", "Ошибка", MB_OK+MB_ICONERROR);
Application.Terminate;
end;

Application.CreateForm(TfrmMain, frmMain);
UpdateWindow(Handle);
Application.CreateForm(TfrmSettings, frmSettings);
UpdateWindow(Handle);
Hide;
Free;
Screen.Cursor := crHourGlass;
Application.Run;
except
begin
Free;
Screen.Cursor := crDefault;
end;
end;
end.

---

lenin   (2002-08-15 08:50:00) [3]

Вариант такой:
Application.Initialize;
Form2:=TForm2.Create(nil);
Form2.Show;
Form2.Update;
Application.CreateForm(TForm1, Form1);
// Application.CreateForm(TForm2, Form2);
Application.Run;

Затем в нужном месте программы выводишь нужное сообщение, например:
form2.label1.caption:="Created db1";
А в конце
form2.free;

---

Наверх