Forum: Multimedia
Delphi
by marabu,
24. Jan 2006
Hi,
ich würde das ähnlich machen wie Thorsten. Den Zustand GEDRUECKT brauche ich nicht, da er aus der Startzeit abgeleitet werden kann.
procedure TDemoForm.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_SPACE then
begin
Forum: Multimedia
Delphi
by marabu,
22. Jan 2006
Herzlich Willkommen in der Delphi-PRAXiS.
Da du nur vollendete Sekunden berechnest, ist doch Null als Ergebnis durchaus plausibel, oder? Du musst wissen, dass in Anhängigkeit von den Einstellungen deines keyboard controller das KeyDown Ereignis auch beim auto repeat ausgelöst wird. Schau mal in deinem BIOS nach den eingestellten Zeiten.
Freundliche Grüße vom marabu