VPF::горячая клавиша - Форум программистов

0LineGate

Дата 23.5.2007, 19:40 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

Репутация: 0
Всего: 2

у меня возникла необходимость при нажатии ОДНОЙ клавиши делать нечто, только есть проблема нужно чтобы горячая клавиша работала даже в том случае если фокус не на форме!
просьба: поиск не предлагать

Это сообщение отредактировал(а) 0LineGate - 26.5.2007, 01:50

Yanis

Дата 23.5.2007, 20:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 6
Всего: 111

Это больше по WinAPI чем по Delphi или VCL.
Просто надо поставить хук. Ну или таймером проверять нажата клавиша или нет.

Это сообщение отредактировал(а) Yanis - 23.5.2007, 20:06

--------------------

*щёлк*

Alexeis

Дата 23.5.2007, 20:18 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

Цитата(0LineGate @ 23.5.2007, 19:40

)

только есть проблема нужно чтобы горячая клавиша работала даже в том случае если фокус не на форме!

Сам же и ответил на свой вопрос. Сделай глобальный hotkey.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Yanis

Дата 23.5.2007, 20:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 6
Всего: 111

Цитата(Alexeis @ 23.5.2007, 21:18

)

Сам же и ответил на свой вопрос. Сделай глобальный hotkey.

Ой, забыл что их мона без акселераторов то использовать smile

Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure WMHK(var M: TWMHotKey); message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ID: WORD;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ID := GlobalAddAtom('test');
  RegisterHotKey(Handle, ID, 0, Ord('F'));
end;

procedure TForm1.WMHK(var M: TWMHotKey);
begin
  if M.HotKey = ID then
    ShowMessage('test');
end;

end.

--------------------

*щёлк*

Alexeis

Дата 23.5.2007, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

http://msdn2.microsoft.com/en-us/library/ms671793.aspx

--------------------

0LineGate

Дата 23.5.2007, 22:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

Репутация: 0
Всего: 2

2 Yanis

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  ID := GlobalAddAtom('test');
  RegisterHotKey(Handle, ID, 0, VK_SPACE);
end;

procedure TForm1.WMHK(var M: TWMHotKey);
begin
  if M.HotKey = ID then
    Application.Title:=('test');
end;

end.

И нифига неработает smile

ЗЫ насчёт

Код


Не вижу ничего зазорного в использовании поиска.
Флудером себя не считаю.

я почти весь казёный трафик сожрал но ничего подходящего не нашёл smile

2 Alexeis
ну это ж раздел про Делфи... как никак smile

Это сообщение отредактировал(а) 0LineGate - 23.5.2007, 22:55

Sunvas

Дата 24.5.2007, 07:08 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 2
Всего: 89

Цитата(0LineGate @ 23.5.2007, 22:43

)

И нифига неработает

Все работает. Я проверил. Ищи ошибку у себя.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

0LineGate

Дата 26.5.2007, 01:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

Репутация: 0
Всего: 2

ну у меня не работает даже в том случае даже если скопировать весь код Yanis'a... smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »