Entwickler-Ecke

Multimedia / Grafik - OnKeyPress


Hendi - Mi 31.12.03 18:35
Titel: OnKeyPress
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:



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:


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 user profile iconPeter Lustig: Delphi-Tags hinzugefügt, eigene Formatierung entfernt


Christian S. - Mi 31.12.03 18:39

Hallo!

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

MfG
Peter


flowstar - Mi 31.12.03 18:51

versuch mal mit den OnKeyDown und OnKeyUp Ereignissen.


Hendi - Mi 31.12.03 19:40

Hi!

Danke, das wird funktionieren!