| ExplodeMan |
| Отправлено: 31.05.2004, 07:43 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 18
|
Скажите, как сделать так, что бы при загрузке программы появлялось окно(что-то типа "подождите, подгружаються модули...") пока главное окно самой программы не откроется? и что бы это окно нельзя было вырубить "Альт-Ф4"? дело в том, что у меня прога при запуске проверяет большой объём данных....
|
|
| olegenty |
| Отправлено: 31.05.2004, 09:52 |
|
Ветеран
Группа: Модератор
Сообщений: 2412
|
Вот пример
|
|
| xTrim |
| Отправлено: 31.05.2004, 09:55 |
|
Машинист паровоза
Группа: Участник
Сообщений: 208
|
немного подправил старый код. можно попробовать.
|
|
| MDM |
| Отправлено: 31.05.2004, 09:56 |
|
Не зарегистрирован
|
| QUOTE (ExplodeMan @ 31/05/2004, 08:45) | | Скажите, как сделать так, что бы при загрузке программы появлялось окно(что-то типа "подождите, подгружаються модули...") пока главное окно самой программы не откроется? и что бы это окно нельзя было вырубить "Альт-Ф4"? дело в том, что у меня прога при запуске проверяет большой объём данных.... |
1. См. ($BCB)\Examples\DBTasks\MastApp\mastapp.cpp
2. См. ниже:
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if (Shift.Contains(ssAlt)&&Key==VK_F4) Tag=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if(Tag)
{
CanClose=false;
Tag=0;
}
}
//---------------------------------------------------------------------------
|
|
