Текущий архив: 2008.01.20;
Скачать: CL | DM;

Вниз

реакция на клавиши в свернутой программе   Найти похожие ветки 

← →
cadmy ©   (2007-10-18 00:27) [0]

Здравствуйте, у меня такая проблема: нужно, чтобы программа реагировала на заданные клавиши (у меня ctrl+space) даже, когда она свернута. Посоветуйте, что-нибудь. Заранее спасибо

---

← →
Германн ©   (2007-10-18 01:28) [1]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=548

---

← →
Lacmus ©   (2007-10-18 11:07) [2]

Вариант с HotKey



unit Unit76;

interface

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

type
 TForm76 = class(TForm)
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
   procedure WMHotKey(var aMessage: TMessage); message WM_HOTKEY;
 end;

var
 Form76: TForm76;

implementation

{$R *.dfm}

procedure TForm76.FormCreate(Sender: TObject);
begin
 RegisterHotKey(Handle, 123, MOD_CONTROL, VK_SPACE);
end;

procedure TForm76.FormDestroy(Sender: TObject);
begin
 UnregisterHotKey(Handle, 123)
end;

procedure TForm76.WMHotKey(var aMessage: TMessage);
begin
 if aMessage.WParam = 123 then begin
   if IsIconic(Handle) then
     Application.Restore;
   Application.BringToFront;
   ShowMessage("Ctrl+Space")
 end else
   inherited
end;

end.



---

← →
cadmy ©   (2007-10-22 20:51) [3]

Спасибо, Lacmus, отлично помогло

---

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

Текущий архив: 2008.01.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c