Вернуть фокус программе (Focused)

@Rapsod · Регистрация: 21.11.2009

Студворк — интернет-сервис помощи студентам

Всем привет!!!!

Помогите пожалуйста!!!
Возник такой вопрос: Как вернуть фокус программе, когда она становиться не активной???
То-есть, чтобы программа всегда была активной.
Заранее благодарю!!!

@Sasha · 02.02.2010, 10:51

Так сделай поверх всех окон

Добавлено через 6 минут

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
private:
        void __fastcall myWndProc(Messages::TMessage & Message);
 
void __fastcall TStaticF::FormCreate(TObject *Sender)
{
WindowProc = myWndProc;
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TStaticF::myWndProc(Messages::TMessage &Message)
{
       if (Message.Msg == WM_SYSCOMMAND && Message.WParam == SC_DRAGMOVE)
    {
        return;
    }
 
    WndProc(Message);
 
}

@Rapsod · 02.02.2010, 12:11 **[ТС]**

Я так делал, но не помогло.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void __fastcall TForm14::Timer1Timer(TObject *Sender)
{
Form14->FormStyle=fsStayOnTop;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm14::ApplicationEvents1Minimize(TObject *Sender)
{
Application->Restore();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm14::ApplicationEvents1Deactivate(TObject *Sender)
{
Application->Restore();
}

Достаточно было какой-то программке загрузиться как тут же терялся фокус и программа становилась не активной, хоть и поверх всех окон..

Добавлено через 56 минут

Сообщение от Sasha

Так сделай поверх всех окон

Добавлено через 6 минут

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
private:
        void __fastcall myWndProc(Messages::TMessage & Message);
 
void __fastcall TStaticF::FormCreate(TObject *Sender)
{
WindowProc = myWndProc;
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TStaticF::myWndProc(Messages::TMessage &Message)
{
       if (Message.Msg == WM_SYSCOMMAND && Message.WParam == SC_DRAGMOVE)
    {
        return;
    }
 
    WndProc(Message);
 
}

А что собою представляет процедура WndProc?
И какие компоненты нужно добавить на форму, для работы вашего кода?

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@Rapsod Волшебник 65 / 64 / 7 Регистрация: 21.11.2009 Сообщений: 319

	Вернуть фокус программе (Focused) 02.02.2010, 01:35. Показов 2184. Ответов 2 Метки нет (Все метки) Всем привет!!!! Помогите пожалуйста!!! Возник такой вопрос: Как вернуть фокус программе, когда она становиться не активной??? То-есть, чтобы программа всегда была активной. Заранее благодарю!!! 0

Вернуть фокус программе (Focused)

Решение