Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Вниз

Насчёт клавиатуры   Найти похожие ветки 

 
Anar   (2002-10-16 21:58) [0]

Как сделать так чтоб даже когда программа была моя неактивна (фокус не имеет) система реагировала на горячие клавиши?
Н-р: ALT+C - в программе - закрытие окна. Если вне программы нажать ALT+C - то ни фига... Можно ли это осуществить???


 
Kotka   (2002-10-16 22:35) [1]

Пример регистрации Enter как горячей клавиши.
Там в параметрах вместо 0 надо вставить состояния кнопок alt, ctrl, shift в []. Мне лень щас смотреть хелп, так что сам посмотришь!

unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
procedure FormDestroy(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;
const id_snapshot=101;
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Form1.Handle,id_SnapShot,0,VK_return);
end;
procedure TForm1.WMHotKey (var Msg : TWMHotKey);
begin
if Msg.HotKey = id_SnapShot then
showmessage("Gotit");
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey (Form1.Handle, id_SnapShot);
end;
end.


 
F1   (2002-10-18 13:48) [2]

Дык если прога не активна, то нужно SetWindowHookEx.


 
han_malign   (2002-10-18 13:59) [3]

Поиск не рабатоет?
Буквально сегодня в рассылке пришло
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=16-988621065


 
DDS   (2002-10-28 10:52) [4]

Посмотри на моем сайте
www.DimaS.Page.narod.ru -> FAQ -> Форма, Проект -> Перехват нажатий клавиш


 
DDS   (2002-10-28 10:53) [5]

Посмотри на моем сайте
www.DimaS0Page.narod.ru -> FAQ -> Форма, Проект -> Перехват нажатий клавиш



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.032 c
3-14930
sndanil
2002-12-13 18:42
2003.01.06
Поле Time


14-15293
Aga
2002-12-17 07:17
2003.01.06
Есть ли в електронном виде книга....


3-14914
old_mole
2002-12-12 11:52
2003.01.06
Помогите с Report`ом


1-15098
PVOzerski
2002-12-22 12:09
2003.01.06
Есть ли резон привлекать DirectX?


14-15268
Anatoly Podgoretsky
2002-12-13 23:43
2003.01.06
Именинники 14 декабря





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский