Tastaturverarbeitungsereignis(Taste und Dauer des Drucks)

[marabu]

Hi,

ich würde das ähnlich machen wie Thorsten. Den Zustand GEDRUECKT brauche ich nicht, da er aus der Startzeit abgeleitet werden kann.

Delphi-Quellcode:

procedure TDemoForm.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_SPACE then
  begin
    ResetBar;
    Key := 0;
  end;
end;

procedure TDemoForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_SPACE then
    if tcStart = 0
      then tcStart := GetTickCount
      else ProgressBar(GetTickCount - tcStart);
end;

marabu