Кто шарит в Delphi?

[Mr.Cherry]

Хай народ! Как повесить действие на нажатие клавиши на клаве? KeyPress не подходит :) :) (там только запрет на ввод можно). Горячие клавиши - это комбинации клавиш , а мне нужно на одну клавишу :) .

:)

[Darhazer]

Надо обявит функцию/процедуру для сообщение

procedure WMKeyDown(var Message: TMessage); message WM_KEYDOWN

[Mr.Cherry]

Что то не рублю. Я только недавно программингом занялся, так что можно поподробнее?

[Darth Emil]

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

procedure FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

Label2.Caption := IntToStr(Key);

end;

end.

[Mr.Cherry]

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

procedure FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

Label2.Caption := IntToStr(Key);

end;

end.

Не Darth Emil, это мне не подходит :sm(100): , мне нужна одиночная горячая клавиша.

[Darhazer]

Mr.Cherry

Ты можеш указать процедуру, которая будет визвана при данного собитие (в случае - KeyDown)

В TMessage подаеться дополнительная информация о собитие - например клавиш, который нажал пользватель.

Так каждий раз, когда пользватель нажмет на кнопку, твоя процедура WMKeyDown выполниться и в Message.Wparam будет содержиться нажатий калвиш - например VK_F7