Hallo erstmal!
Nach langem lesen in verschiedenen Foren und stöbern im Internet wende ich mich jetzt mal an euch...
Delphi-Quellcode:
procedure TfrmTitel.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Tastendruck_Anfang := GetTickCount;
Schiffsaktionen(Key,frmTitel,Shift); // SCHIFFFUNKTIONEN.PAS // Hier werden die Keys weiterverarbeitet , irrelevant hoffe ich
end;
{**********************************************************************************
**********************************************************************************}
procedure TfrmTitel.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Tastendruck_Ende := GetTickCount;
Differenz_Tastendruck := ((Tastendruck_Ende - Tastendruck_Anfang) div 1000) ;
edtTastenDruckSek.Text := IntToStr(Differenz_Tastendruck);
end;
{**********************************************************************************
**********************************************************************************}
Nun meine Fragen:
1.Wieso kommt in dem Editfeld immer 0 raus?
2.Hat jemand eine bessere Idee wie man das mit der Zeitmessung machen kann?
Am besten einfacher...
Hoffe ihr könnt mir helfen.Danke im voraus für den Aufwand und die Mühe.