| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Срочно.Горячие клавиши [D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]

pet ©   (2003-01-11 20:55:00) 

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

---

Song   (2003-01-12 10:38:00) [1]

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

---

TTCustomDelphiMaster   (2003-01-11 21:52:00) [2]

> Rouse_ © (11.01.03 21:44)


Это для примера

---

Rouse_   (2003-01-11 21:44:00) [3]

> TTCustomDelphiMaster © (11.01.03 21:33)

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


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

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

---

Rouse_   (2003-01-11 21:36:00) [4]

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

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

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

---

TTCustomDelphiMaster   (2003-01-11 21:33:00) [5]

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

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:32:00) [6]

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

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:22:00) [7]

F1 - THotKey

---

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

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

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

---

Наверх