Tastaturverarbeitungsereignis(Taste und Dauer des Drucks)

[omata]

Hallo,

Zitat von Preddy2005:

Differenz_Tastendruck := ((Tastendruck_Ende - Tastendruck_Anfang) div 1000) ;

warum teilst du ganzzahlig durch 1000.
Du solltest die Auswertung in Millisekunden machen (nimm das div weg!)

Edit: hier mal ein Beispiel...

Delphi-Quellcode:

  :
  private
    { Private-Deklarationen }
    FStartZeit:Cardinal;
    FGedrueckt:boolean;
  :

procedure TForm.FormCreate(Sender: TObject);
begin
  FGedrueckt:=false;
end;

procedure TForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not FGedrueckt then begin
    FGedrueckt:=true;
    FStartZeit:=GetTickCount;
  end;
end;

procedure TForm.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if FGedrueckt then begin
    showmessage(inttostr((GetTickCount - FStartZeit)));
    FGedrueckt:=false;
  end;
end;

MfG
Thorsten