Скачать: CL | DM;

Перехват   Найти похожие ветки 

← →
Ivolg   (2004-11-05 16:48) [0]

Привет всем!! Плизз хелп!!!  Моя прога свёрнута в трей, как можно по нажатию на Ctrl+S, чтобы  окно проги появлялось??  Как такое можно усошествить на делфи?? СПАСИБО!!!!

---

← →
CHES ©   (2004-11-05 17:15) [1]

"усошествить" это можно при помощи глобального хука на клавиатуру

http://msk.nestor.minsk.by/kg/2003/26/kg32602.html

---

← →
Ivolg   (2004-11-05 18:30) [2]

>CHES
А ещё чтё-нить есть!! А то когда я нажимаю кнопку, она отлавливается и пропадает весь Desktop!!!

---

← →
easy ©   (2004-11-05 18:31) [3]

ненадо это на Ctrl+S осуществлять..  пожалуйсто!..
а на Ctrl+Shift+F11 - примерно так -

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;
const
HK_MYHOTKEY = 1001;
type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
 private
   { Private declarations }
   procedure WMHOTKEY(var msg:TWMHotkey); message WM_HOTKEY;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 application.ShowMainForm:=false;
 RegisterHotKey(handle,HK_MYHOTKEY,MOD_CONTROL or MOD_SHIFT,VK_F11);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnregisterHotKey(handle,HK_MYHOTKEY);
end;

procedure TForm1.WMHOTKEY(var msg: TWMHotkey);
begin
 inherited;
 case msg.HotKey of
   HK_MYHOTKEY:form1.Show;
 end;
end;

end.

---

← →
Ivolg   (2004-11-05 18:51) [4]

>easy

М можно как нить просто с помошью CTRL или с другой какой-нить кнопкой??

---

← →
easy ©   (2004-11-05 19:09) [5]

RegisterHotKey(handle,HK_MYHOTKEY,MOD_CONTROL,ord("S"));

---

← →
Ivolg   (2004-11-06 17:01) [6]

Спасибо!!!!!

---

← →
Anatoly Podgoretsky ©   (2004-11-06 17:08) [7]

easy ©   (05.11.04 19:09) [5]
Потом народ будет страдать, сказали же не надо.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c