Клавиша

[ladose]

Как можно сделать такую функцию?!

-При нажатие и удерживание клавиши "SPACE" и он будет нажиматься N раз.

[deathNC]

ladose, мне всегда казалось,что он и так будет нажиматься N раз. Например, кинь Edit на форму, запусти программу, и в едите зажми пробел - он нажмётся N раз

[Stilet]

С потолка:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 with TEdit(sender) do begin
   if tag>5 then    ShowMessage('Хватит жать!');
   tag:=tag+1;
 end;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 TEdit(sender).Tag:=0;
end;

end.

Идея понятна?

[ladose]

Вы не правильно поняли.

Вот наверное так будет понятнее:
Нужно сделать допустим при нажатие на "TAB" будет происходить не сколько нажатий. Все делается это для игры, не суть какую кнопку использовать.

P.s мне не для текстовых документах, а для игры, что-то типо BunnyHop'a.

[MeTeOpA]

Оо Вам нужно с(и/э)мулировать нажатие клавиши?

[ladose]

Возможно, и так.

[Stilet]

Ищи описание функции SendInput.

[ladose]

Поподробней можно?)

SendInput(0,WM_KEDOWN,VK_SPACE,0);

Не так? Глубоко ошибаюсь?

Помогите пожалуйста.