Горячия клавиша

[Editor]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = vk_f11 then
ShowMessage('нажат f11');
end;

Нужно что бы ShowMessage вылезал по нажатию f11 даже если приложение в свернутом виде при этом желательно что бы приложение не разворачивалось

Горячия клавиша

О великая и могучий русский языка...

[uberchel]

Держи, в следующий раз, сначала пользуйся поиском про форуму!

Это прописываем в private
   procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;

...

   procedure TForm1.WMHotKey (var Msg : TWMHotKey);
   begin
      if Msg.HotKey = 122 then
        ShowMessage(' Нажата F11');   
   end; 

   procedure TForm1.FormCreate(Sender: TObject);
   begin
      RegisterHotKey(Handle,122,0,122);  
   end;

   procedure TForm1.FormDestroy(Sender: TObject);
   begin
      UnRegisterHotKey (Handle, 122);
   end;

[Editor]

Спасибо!А по какому принципу тут определяется какая клавиша?..
Ну если я например захочу изменить на f5...

[Kotofff]

Не "по принципу" , а по таблице :

vk_LButton   = $01;
vk_RButton   = $02;
vk_Cancel    = $03;
vk_MButton   = $04;
vk_Back      = $08;
vk_Tab       = $09;
vk_Clear     = $0C;
vk_Return    = $0D;
vk_Shift     = $10;
vk_Control   = $11;
vk_Menu      = $12;
vk_Pause     = $13;
vk_Capital   = $14;
vk_Escape    = $1B;
vk_Space     = $20;
vk_Prior     = $21;
vk_Next      = $22;
vk_End       = $23;
vk_Home      = $24;
vk_Left      = $25;
vk_Up        = $26;
vk_Right     = $27;
vk_Down      = $28;
vk_Select    = $29;
vk_Print     = $2A;
vk_Execute   = $2B;
vk_SnapShot  = $2C;
vk_Insert    = $2D;
vk_Delete    = $2E;
vk_NumPad0   = $60;
vk_NumPad1   = $61;
vk_NumPad2   = $62;
vk_NumPad3   = $63;
vk_NumPad4   = $64;
vk_NumPad5   = $65;
vk_NumPad6   = $66;
vk_NumPad7   = $67;
vk_NumPad8   = $68;
vk_NumPad9   = $69;
vk_Multiply  = $6A;
vk_Add       = $6B;
vk_Separator = $6C;
vk_Subtract  = $6D;
vk_Decimal   = $6E;
vk_Divide    = $6F;
vk_F1        = $70;
vk_F2        = $71;
vk_F3        = $72;
vk_F4        = $73;
vk_F5        = $74;
vk_F6        = $75;
vk_F7        = $76;
vk_F8        = $77;
vk_F9        = $78;
vk_F10       = $79;
vk_F11       = $7A;// дес. 122
vk_F12       = $7B;
vk_NumLock   = $90;
vk_Scroll    = $91;

[Editor]

Сообщение от Kotofff

vk_F11 = $7A;// дес. 122[/CODE]

Каким образом вычислялось это 122?..

[Kotofff]

Не понял !!! Что значит вычислялось ??!!
В таблице : vk_f11 - это зарезервированная константа ; $7A - шестнадцатеричное представление числа 122 ...

[Stilet]

Каким образом вычислялось это 122?

Забивалось стандартно. В твоем случае используя данное тебе моим коллегой:

Это прописываем в private
   procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;

...

   procedure TForm1.WMHotKey (var Msg : TWMHotKey);
   begin
      if Msg.HotKey = VK_F11 then
        ShowMessage(' Нажата F11');   
   end; 

   procedure TForm1.FormCreate(Sender: TObject);
   begin
      RegisterHotKey(Handle,1,0,VK_F11);  
   end;

   procedure TForm1.FormDestroy(Sender: TObject);
   begin
      UnRegisterHotKey (Handle, 1);
   end;

[Editor]

чем это $7A декодировать в это 122??....

[Alex Cones]

Убрать "$"

[Editor]

ну чем шестнадцатеричное числа перевести в обычное?