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

procedure TForm1.Button2Click(Sender: TObject);
var
  s:real;
  i:integer;
begin
SumEdit.Text:=FloatToStr(0);
s:=0;
for i:=Memo1.Lines.Count-1 downto 0 do
if StrToFloat(Memo1.Lines[i])>=100 then
  begin
  s:=s+StrToFloat(Memo1.Lines[i]);
  SumEdit.Text:=FloatToStr(s)
  end
else
if SumEdit.Text=FloatToStr(0) then
SumEdit.Text:=('Íåò çíà÷åíèé!')
end;

type
  TForm1 = class(TForm)
    ...
  private
    { Private declarations }
  public
    { Public declarations }
    procedure MyProc; //например так
//ставим напротив названия процедуры курсор и нажимаем сочетание клавиш Shift+Ctrl+C.
//Будет создан шаблон процедуры. Добавьте в него свой код

type
  TForm1 = class(TForm)
    ...
  private
    { Private declarations }
  public
    { Public declarations }
procedure MyProc;
    procedure hot_key(var Message: TMessage); message WM_HOTKEY;//для этой процедуры также создаем шаблон

procedure TForm1.FormCreate(Sender: TObject);
begin
 RegisterHotKey(Handle, 0, MOD_CONTROL, $41); // для команды Ctrl+A
end;

procedure TForm1.hot_key(var Message: TMessage);
begin
    // обработчик
    MyProc;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    UnRegisterHotKey(Handle, 0);
end;

  private
    { Private declarations }
       procedure MyProc;

procedure TForm1.MyProc;
var
  s:real;
  i:integer;
begin
  SumEdit.Text:=FloatToStr(0);
  s:=0;
  for i:=Memo1.Lines.Count-1 downto 0 do
  if StrToFloat(Memo1.Lines[i])>=100 then
  begin
  s:=s+StrToFloat(Memo1.Lines[i]);
  SumEdit.Text:=FloatToStr(s)
  end
else
  if SumEdit.Text=FloatToStr(0) then
  SumEdit.Text:=('Нет значений!')
 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   MyProc;
end;

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
 If Msg.CharCode = 113 then  // F2
  begin
     MyProc;
     Handled := True;
  end
end;

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
  If Msg.CharCode = 113 then // F2
  begin
    ShowMessage(' Вы нажали клавишу  F2 ');
    Handled := True;
  end
  else If Msg.CharCode = 114 then // VK_F3
  begin
    ShowMessage(' Вы нажали клавишу  F3 ');
    Handled := True;
  end
  else If Msg.CharCode = 115 then // VK_F4
  begin
    ShowMessage(' Вы нажали клавишу  F4 ');
    Handled := True;
  end
  else If Msg.CharCode = 116 then // VK_F5
  begin
    ShowMessage(' Вы нажали клавишу  F5 ');
    Handled := True;
  end
  else If Msg.CharCode = 117 then // VK_F6
  begin
    ShowMessage(' Вы нажали клавишу  F6 ');
    Handled := True;
  end
  else If Msg.CharCode = 118 then // VK_F7
  begin
    ShowMessage(' Вы нажали клавишу  F6 ');
    Handled := True;
  end
    else If Msg.CharCode = 20 then // Caps Lock
  begin
    ShowMessage(' Вы нажали клавишу  Caps Lock ');
    Handled := True;
  end
end;
 
end.

  private
    { Private declarations }
     id1, id2, id3, id4, F6: Integer;
     procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
 if Msg.HotKey = id1 then
     ShowMessage('Ctrl + A pressed !');
   if Msg.HotKey = id2 then
     ShowMessage('Ctrl + Alt + R pressed !');
   if Msg.HotKey = id3 then
     ShowMessage('Win + F4 pressed !');
   if Msg.HotKey = id4 then
     ShowMessage('Print Screen pressed !');
    if Msg.HotKey = F6 then
   ShowMessage('Вы нажали F6 !');
end;

procedure TForm1.FormCreate(Sender: TObject);
// Different Constants from Windows.pas
const
   MOD_ALT = 1;
   MOD_CONTROL = 2;
   MOD_SHIFT = 4;
   MOD_WIN = 8;
   VK_A = $41;
   VK_R = $52;
   VK_F4 = $73;
   VK_F6 = $75; //   F6
begin
 // Register Hotkey Ctrl + A
  id1 := GlobalAddAtom('Hotkey1');
   RegisterHotKey(Handle, id1, MOD_CONTROL, VK_A);
 
   // Register Hotkey Ctrl + Alt + R
  id2 := GlobalAddAtom('Hotkey2');
   RegisterHotKey(Handle, id2, MOD_CONTROL + MOD_Alt, VK_R);
 
   // Register Hotkey Win + F4
  id3 := GlobalAddAtom('Hotkey3');
   RegisterHotKey(Handle, id3, MOD_WIN, VK_F4);
 
   // Globally trap the Windows system key "PrintScreen"
  id4 := GlobalAddAtom('Hotkey4');
   RegisterHotKey(Handle, id4, 0, VK_SNAPSHOT);
   // Register Hotkey Win + F6 +++++++++++++++++++++++++++++++++++++
  F6 := GlobalAddAtom('Hotkey5');
   RegisterHotKey(Handle, F6, 0, $75);
 
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   UnRegisterHotKey(Handle, id1);
   GlobalDeleteAtom(id1);
   UnRegisterHotKey(Handle, id2);
   GlobalDeleteAtom(id2);
   UnRegisterHotKey(Handle, id3);
   GlobalDeleteAtom(id3);
   UnRegisterHotKey(Handle, id4);
   GlobalDeleteAtom(id4);
   GlobalDeleteAtom(F6); //+++++++++++
end;