| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Всегда активная форма. [D5, Win2k]
Андрей Ваганов © (2002-11-24 18:27:00)Привет Всем!
Кто пробовал создать форму которая была бы всегда активной, либо получала фокус сразу после его потери(например при сообщениях винды или собственных).
Как анализировать потерю фокса знаю:
protected Procedure LastFocus(var Mess:TMessage); message WM_ACTIVATE;
. . . .
. . . .
. . . .
procedure TForm1.LastFocus(var Mess : TMessage) ;
begin
if Mess.wParam = WA_INACTIVE then
Form1.Panel.Color:=clInactiveCaption
else
Form1.Panel.Color:=clActiveCaption;
Inherited;
end;
...просто меняю цвет панели.
Подскажите пожалуйста как вернуть фокус форме.
_________________
Заранее Благодарю
Ваганов Андрей
Андрей Ваганов (2002-11-25 18:45:00) [1]2 esu
Благодарю за идею!
С Уваженим
Андрей Ваганов
esu (2002-11-25 15:05:00) [2]
> Андрей Ваганов (25.11.02 14:59)
Ну эт от твоей оболочки зависит, а еще зависит от того какая у тебя операционная система.
Что-то такое должно заменить стандартную оболочку win9x на старую, как в win3x но можно написать свою. И там скажем кнопку поставить которая бы при нажатии ATL+"Наши поезда самые поездатые поезда в мире" активировалась и меняла твою оболочку на стандартную.
ini := TIniFile.Create("c:\windows\system.ini");
ini.WriteString("boot", "shell", "progman.exe");
ini.Free;
Естественно c:\windows писать нельзя, нужно использовать GetWindowsDirectory для определения местоположения винды.
Андрей Ваганов (2002-11-25 14:59:00) [3]2 esu
Такая форма нужна в тех случаях, когда требуется отделить ламеров от системы(именно этот способ требуется)!
А на счет того, чтобы сменить оболочку я подумывал, но не знаю как. А можно ли в таком случае(если сменить оболочку) администратору попасть в систему?
esu (2002-11-25 14:23:00) [4]Дак а как же работать если всегда активна только твоя форма ??
Такгда уж меняй оболочку с explorer на свою программу... Эффект тот же :)
Андрей Ваганов (2002-11-25 14:05:00) [5]2 vaneks
Пробовал! Все хорошо! Но форма не активна.
vaneks (2002-11-25 14:01:00) [6]Попробуй у главной формы покалдовать со свойствами.
Если неошибаюсь по-моему FormStyle нужно установить в StayOnTop или что-то созвучное!
Андрей Ваганов (2002-11-25 13:27:00) [7]...да ясно енто!
...но у меня не прет!
Андрей Ваганов (2002-11-25 13:26:00) [8]...ну и...
...у меня не прет!
rhf (2002-11-24 19:17:00) [9]SetForegrounfWindow()
| |
