Delphi-Quellcode:
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_SPACE then
begin
Label1.Caption := 'Down';
Timer1.Enabled := false;
end;
end;
procedure TMainForm.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_SPACE then
begin
Label1.Caption := 'up';
Timer1.Enabled := True;
end;
end;
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
// Zeige Nächste Zeile an...
end;
ich hoffe dir hilft das weiter... ansonsten müstest du mit Treads arbeiten was für einen Anfänger nicht einfach ist...
wenns probleme gibt Poste mal was du hast...
