Aktion auslösen, solange Taste gedrückt wird?

[himitsu]

Also bei mir wird OnKeyUp nur ausgelöst, wenn ich die Taste loslassen

diese beiden Varianten funktionieren ohne Probleme
(klar, es werden jetzt zwar keine Tasten unterschieden, aber es kommt definitiv OnKeyUp nur an,wenn ich die Taste loslasse und sonst nicht)

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    ...
  private
    b: Boolean;
    i: Integer;
  end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  b := False;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  b := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if b then i := i + 1;
end;

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ...
  private
    i: Integer;
  end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  i := 0;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  i := i + 1;
end;

kann es denn sein, daß es an irgendeiner Komponente (auf deiner Form) liegt?