Окно поверх всего и... [D5, Win95/98]
Pete © (2002-02-05 15:54:00)
Вообщем нужно, что-бы окно ни какими способами не
сворачивалось,
не становилось неактивным и т.д.
Вся проблема в том, что прога работает под DirectDraw
Отключаю ctrl+alt+del:
SystemParametersInfo(PI_SCREENSAVERRUNNING,1,@old,0);
а вот сворачивание не могу отключить, alt+space все равно
сворачивает.
AlexRush (2002-02-05 17:32:00) [1]
Чтобы форма была всегда поверх всех окон:
В обьявлении класса формы переопределяешь виртуальный метод
TWinControl CreateParams >>
procedure CreateParams(var Params:TCreateParams);override;
Его реализация:
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle:=Params.ExStyle or WS_EX_TOPMOST;
end;
Чтобы отключать Alt+Tab, Alt+Space и еже с ними, используем
механизм горячих клавиш Виндовс:
CONST
hhkAtlTab =101; // любые значения от от 0 до 49151
hhkAtlSpace = 102;
.......
// на создание формы
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Self.Handle,hhkAtlSpace,MOD_ALT,VK_SPACE);
RegisterHotKey(Self.Handle,hhkAtlTab,MOD_ALT,VK_TAB);
end;
// Чтобы убрать:
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnregisterHotKey(Self.Handle,hhkAtlTab);
UnregisterHotKey(Self.Handle,hhkAtlSpace);
end;
Проверено, работает.
Наверх 
ЧАТ |
Орешник |
|
