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

@97mik · Регистрация: 08.04.2009

Author24 — интернет-сервис помощи студентам

Как сделать что бы при нажатии клавиш Ctrl+Z выполнялось a:=a+1;

@Dmitriu · 25.09.2010, 19:30

Попробуй так

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure F1(var Message:TMessage);message WM_HOTKEY;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle,0,MOD_CONTROL,$5A);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(Handle,0);
end;
 
procedure TForm1.F1(var Message: TMessage);
begin
Edit1.Text:='fff'; // здесь действие которое будет выполняться по клавише Ctrl+z
end;
 
end.

@97mik · 26.09.2010, 11:27 **[ТС]**

Спасибо !!!

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
		1
	Горячие клавиши 25.09.2010, 18:39. Показов 2656. Ответов 2 Метки нет (Все метки) Как сделать что бы при нажатии клавиш Ctrl+Z выполнялось a:=a+1; 0

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	26.09.2010, 11:27 [ТС]	3
	Спасибо !!! 0

Опции темы

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

Решение