Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

29th
Авг

Кнопка вместо горячих клавиш

Posted by micher under Delphi

DenZ

Подскажите пожалуйста, мне надо что бы нажатие на кнопку bitbtn на форме, заменяло нажатие на клавиатуре две клавиши, Ctrl + F.

Sparkman

Системная горячая клавиша:



unit Unit1;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;
type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

    { Private declarations }

    id1:integer;

    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

  public

    { Public declarations }

  end;
var

  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);

begin

      id1 := GlobalAddAtom('Hotkey1');

      RegisterHotKey(Handle, id1, 2, ord('F'));

end;
procedure TForm1.FormDestroy(Sender: TObject);

begin

     UnRegisterHotKey(Handle, id1);

end;
procedure TForm1.WMHotKey(var Msg: TWMHotKey);

begin

     if Msg.HotKey = id1 then

    ShowMessage('Ctrl + F was pressed !');

end;
end.

Пост написан при поддержке ТЕХАВТОКАР — поставка, продажа специальной техники, сменного навесного оборудования и запасных частей к технике производства стран СНГ.

Экскаватор цепной ЭЦ на базе трактора МТЗ предназначен для прокладывания траншей глубиной 1400-1800 мм и шириной от 140 до 410мм. Только данный агрегат имеет баровый рабочий орган с шириной резки 140мм и глубиной 1800мм. Оборудован гидроходоуменьшителем, двух скоростным реверс редуктором и может быть монтирован на трактора класса 4 — МТЗ 80, 82, 892, 92П, 920 и др. На агрегате использована стандартная пальчиковая цепь, типа «алигатор».

тема на форуме