OnKeyPress

Hendi · Hält's aus hier Beiträge: 14

Hi!

Ich möchte, dass sich ein Gegenstand auf Knopfdruck bewegt,
die bewegung aber unterbricht, wenn der Knopf nicht mehr gedrückt wird.
Mit dem OnKeyPress funtzt des net:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

var
run:Integer;

Procedure OnKeyPress BlaBlaBla
 begin
 if key=VK_RIGHT then run:=4 else run:=0;
 end;

dann noch nen Timer:

markieren

Delphi-Quelltext

1:
2:
3:
4:

Timer BlaBlaBla
begin
 image1.left:=image1.left+ run;
end;

Funktioniert aber wie gesagt nicht. Die Bewegung stoppt erst, wenn ich
irgendeine andere Taste drücke... :-(

Moderiert von Peter Lustig: Delphi-Tags hinzugefügt, eigene Formatierung entfernt

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo!

Benutze bitte demnächst die Delphi-Tags, um Deinen Sourcecode zu formatieren.

MfG
Peter

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

flowstar · Beiträge: 123 WinME D6 Enterprise

versuch mal mit den OnKeyDown und OnKeyUp Ereignissen.

Hendi · Hält's aus hier Beiträge: 14

Hi!

Danke, das wird funktionieren!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme