Окно поверх всего и...

← →
AlexRush (2002-02-05 17:32) [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;

Проверено, работает.

Окно поверх всего и... Найти похожие ветки