Постоянный фокус на одной программе

[regman]

как постоянно держать программу активной?? То есть чтобы фокус с нее не уходил?? Или при потере фокуса возвращать его обратно на главное окно программы (программа однооконная)??

[Пепел Феникса]

Application.OnDeactivate(вроде так)..метод назначается в ран-тайме(потом пример дам..сейчас я не дома)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    procedure AppDeactivate(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormDeactivate(Sender: TObject);
begin
 Form1.SetFocus;
end;

end.

вроде так(но не факт что она всегда видима будет)

[regman]

Не работает. Приведу пример чтобы понятнее было. Есть у меня окно формы, оно у меня всегда наверху fsStayOnTop. Но если клацнуть мышкой по рабочему столу вне формы - тогда все, окно формы больше не принимает команд нажатия клавиш, например F2. Нужно опять щелкнуть (перейти) на окно программы, чтобы оно опять принимало команды...

[Stilet]

не принимает команд нажатия клавиш, например F2.

Зарегистрируй их как Hot-Key через RegisterHotKey и не парься по поводу фокуса.

[regman]

программа вообще-то помимо F2 еще должна принимать еще несколько клавиш - Backspace, Enter, Up, Down. И что, их тоже всех регить через ХотКей??

[Stilet]

И что, их тоже всех регить через ХотКей??

Тогда хук на клавиатуру поставь.

[BaronTreep]

Могу со своей стороны предложить вам использовать такой код:

if (-GetKeyState(VK_F4) in [127, 128])

чтобы проверить нажата ли лЮбАя клавиша в системе. Список VK можно посмотреть в windows.pas. Вобщем с некоторыми оговорками это проще всего, чтобы хуки не ставить.

Вот я поставил таймер и выставил мин. интервал, потом написал:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (-GetKeyState(VK_F4) in [127, 128]) then close;
  if (-GetKeyState(VK_BACK) in [127, 128]) then close;
  if (-GetKeyState(VK_RETURN) in [127, 128]) then close;
  if (-GetKeyState(VK_UP) in [127, 128]) then close;
  if (-GetKeyState(VK_DOWN) in [127, 128]) then close;
end;

И соответствующие действия выполняются с/без фокуса. Такой фокус-покус...

[regman]

что именно значит эта строка: in [127, 128])??

Конечно вариант интересный, но неужели так сложно реализовать постоянство формы в активном состоянии??

[Zeraim]

regman - Почему вам именно постофнный фокус нужен ? Если вам необходима реакция программы на определённые клавиши то например с GetAnsyncKeyState можно узнать, нажата-ли клавиша. Используйте Virtual-Key Codes, а при нажатом состоянии клавиши функция возвращает отрицательное число.
Также можно воспользоватся советом Stilet'a
Ну а если все таки вам нужен постоянный фокус, то прийдётся учить хуки. Поскольку можно отлавливать сообщения передачи фокуса, и просто их блокировать.

[BaronTreep]

что именно значит эта строка: in [127, 128])??

GetKeyState возвращает значение с определяющим старшим битом, дабы не парится - это значит, что при нажатой кнопке это либо -127 или -128, особенности дельфи заставляют взять -GetKeyState и проверить, лежит ли она в [127, 128], т.е. равна либо тому, либо другому, такой синтаксис у нашего целевого языка, однако.

неужели так сложно реализовать постоянство формы в активном состоянии??

По моим представлениям это невозможно. Я имею в виду активность фокуса, процесс то постоянно активен, и может спросить клавиатуру (непосредственно через GetKeyState) нажата кнопка или нет.