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