| Nick |
| Отправлено: 10.01.2004, 12:49 |
|
Машинист паровоза
Группа: Участник
Сообщений: 247
|
Почему после Application->MessageBox
Фокус передается другому приложению.
Интересно получается:
"Удалить строку" — Да
И на экране Outlook, Opera или др.
|
|
| Admin |
| Отправлено: 10.01.2004, 18:26 |
|
Владимир
Группа: Администратор
Сообщений: 1190
|
Приведите код, что вы делаете после этого MessageBox
|
|
| tsl |
| Отправлено: 10.01.2004, 18:34 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 65
|
Может быть тебе поможет, если я тебе скажу, что у себя я такого никогда не наблюдал.
Я думаю, что проблема локальная. В чем состоит не знаю. |
|
| Nick |
| Отправлено: 11.01.2004, 11:51 |
|
Машинист паровоза
Группа: Участник
Сообщений: 247
|
if (Shift.Contains(ssCtrl))
{
if (Key == VK_SUBTRACT)
{
Key = 0;
if (DBGEh_DocsData->AllowedOperations.Contains( alopDeleteEh ))
if (Application->MessageBox("Удалить строку?",Application->Title.c_str(),MB_YESNO+MB_ICONQUESTION) == IDYES)
{
pFIBDS_DocsData->Delete();
}
} else
if (Key == VK_DELETE) Key = 0;
};
проблема не локальная, дома тоже самое. |
|
| Admin |
| Отправлено: 11.01.2004, 18:40 |
|
Владимир
Группа: Администратор
Сообщений: 1190
|
По видимому происходит какое-то переключение по CTRL-....
Проверьте коды горячих клавиш
Ваш код попробовал В простом Edit-e работает нормально,
никакого переключения на другое приложение не происходит:
| CODE |
void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if (Shift.Contains(ssCtrl))
{
if (Key == VK_SUBTRACT)
{
Key = 0;
if (Application->MessageBox("Удалить строку?",Application->Title.c_str(),MB_YESNO+MB_ICONQUESTION) == IDYES)
{;
}
} else
if (Key == VK_DELETE) Key = 0;
}
} |
Или может у Вас все формы Hide ?
|
|
| Nick |
| Отправлено: 13.01.2004, 09:31 |
|
Машинист паровоза
Группа: Участник
Сообщений: 247
|
Проблема решилась после удаления из проекта
Reports.lib (отчеты)
Я давно хотел перенести их в bpl или dll.
|
|
