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

Вниз

Работа с формой   Найти похожие ветки 

← →
Orc   (2002-08-15 07:02) [0]

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

---

← →
lenin ©   (2002-08-15 08:50) [1]

Вариант такой:
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;

---

← →
Севостьянов Игорь ©   (2002-08-15 12:23) [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.

---

← →
Севостьянов Игорь ©   (2002-08-15 12:25) [3]

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


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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.013 c