Срочно.Горячие клавиши

← →
pet (2003-01-11 20:55) [0]

Как мне зарегестрировать горячие клавиши , например Ctrl-Shift-r
Мне нжно обязательно три

← →
Бандерлоги (2003-01-11 21:19) [1]

Поищи по сайту "RegisterHotKey".
Не смотрел, что там есть, но для Ctrl+Shift используй модификатор MOD_CONTROL or MOD_SHIFT и Ord("R") в функции RegisterHotKey.

Синтакс и пояснения - F1

← →
TTCustomDelphiMaster (2003-01-11 21:22) [2]

F1 - THotKey

← →
Rouse_ (2003-01-11 21:32) [3]

Регистрируем:

var idhot: Integer; procedure TForm1.FormCreate(Sender: TObject); begin idhot:=GlobalAddAtom("MylHotKey"); RegisterHotKey(handle,idhot,MOD_SHIFT+MOD_CONTROL, 82); end;

Ловим:
private { Private declarations } public procedure myhotkey(var msg:TMessage); message WM_HOTKEY; end; ... procedure TForm1.myhotkey(var msg:TMessage); begin if msg.WParam = idhot then Caption := "qwe"; end;

Желаю успехов

← →
TTCustomDelphiMaster (2003-01-11 21:33) [4]

Ой, чет я не по теме. Ладно исправляюсь

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
procedure WMHotKey(var Message: TWMHotKey); message WM_HOTKEY;
end;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle, 1, MOD_CONTROL or MOD_SHIFT, Byte("R"))
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnregisterHotKey(Handle, 1)
end;

procedure TForm1.WMHotKey(var Message: TWMHotKey);
begin
ShowMessage("HotKey Pressed...");
end;

← →
Rouse_ (2003-01-11 21:36) [5]

Да вот забыл, при закрытии удаляем горячую клавишу

procedure TForm1.FormDestroy(Sender: TObject); begin UnregisterHotKey(Handle, Idhot); end;

Желаю успехов

← →
Rouse_ (2003-01-11 21:44) [6]

> TTCustomDelphiMaster © (11.01.03 21:33)

;)) Практически идентично, есть одно НО!!!

RegisterHotKey(Handle, 1, ... - так можно, но крайне нежелательно, пусть система сама присваивает идентификатор, а то ей бедной тогда занятся нечем будет если мы все за нее делать будем :))

Желаю успехов

← →
TTCustomDelphiMaster (2003-01-11 21:52) [7]

← →
Song (2003-01-12 10:38) [8]

Вы ещё подиретесь :))

Срочно.Горячие клавиши Найти похожие ветки