DGL • Thema anzeigen - Key Down problem-..

Key Down problem-..

Moderator: DGL-Team

Seite 1 von 1

[ 6 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

uci

Betreff des Beitrags: Key Down problem-..

Verfasst: Do Nov 27, 2008 14:25

DGL Member

Registriert: Di Nov 18, 2008 11:10
Beiträge: 23
Wohnort: Hamburg

Hey,
also ich hab ein Problem mit on Key Press und on Key down.-..

eigentlich geht das auch immer. z.b. wenn ich mit der 'w' tate auf der x-achse entlangfahren will etc.

Allerdings funktioniert das nicht mehr, wenn ich ein Panel , Button oder sowas mit in die Form einbaue...

Kann mir jemand weiterhelfen,..??

Nach oben

i0n0s

Betreff des Beitrags:

Verfasst: Do Nov 27, 2008 14:35

Ernährungsberater

Registriert: Sa Jan 01, 2005 17:11
Beiträge: 2068
Programmiersprache: C++

Das On-Key wird auf das aktive Element gesendet. Und das wird in deinem Fällen dann eben das Panel/Button sein.

_________________
Steppity,✲steppity,✴step,❆step,✳step! :twisted:

❆ ❄ ❄ ❄ ❅ ❄ ❆ ❄ ❅ ❄ ❅ ❄ ❅ ❄ ❄
❅ ☃ ❄ ❄ ❄ ❅ ❄ ❄ ❄ ❅ ❄ ☃ ❄ ❆ ❄ ❄

Nach oben

uci

Betreff des Beitrags:

Verfasst: Do Nov 27, 2008 15:30

DGL Member

Registriert: Di Nov 18, 2008 11:10
Beiträge: 23
Wohnort: Hamburg

und wie kann ich das verhindern bzw wie kann ich die Form wieder als aktiv setzen?

Nach oben

Markus

Betreff des Beitrags:

Verfasst: Do Nov 27, 2008 16:48

DGL Member

Registriert: Fr Mär 30, 2007 18:35
Beiträge: 331

Hallo,

dazu musst du die .KeyPreview Eigenschaft der Komponente auf True stellen.

Markus

Nach oben

uci

Betreff des Beitrags:

Verfasst: Fr Nov 28, 2008 15:39

DGL Member

Registriert: Di Nov 18, 2008 11:10
Beiträge: 23
Wohnort: Hamburg

Okay keyprewiev der Form ist true aber es geht immer noch nicht... ???

ähm... zusatzt angaben: es geht die tasteneingabe bei einem TImage (da gibts aber kein Key-Preview...)

Hier mal zusätzlich der Quellcode,( den ich eigentlich gar nicht selbst geschrieben habe sonder als Tutorial dient...)
(handelt sich um ein Snake spiel)

Code:

 
type snake = record
x,y:integer;
end;
 
type TFutter = record
x,y,interval : integer;
end;
 
type
  TForm6 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Label1: TLabel;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
      procedure verloren;
      procedure futter_setzen;
    procedure Button1Click(Sender: TObject);
//    function loser : boolean ;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form6 : TForm6;
  linie : array of snake;
  Yrichtung,Xrichtung:integer;
  taste_gedr:Boolean;
  loser : Boolean;
  time : integer;
  futter :TFutter;
implementation
 
{$R *.dfm}
 
procedure TForm6.futter_setzen;
var i:integer;
    erfolg :Boolean;
begin
erfolg := true;
repeat
for i := 0 to high(linie) do
if (futter.x = linie[i].x) and (futter.y = linie[i].y) then
begin
futter.x := (Random(480 Div 20) + 1) * 20;
futter.y := (Random(380 Div 20) + 1) * 20;
erfolg := false;
end;
until erfolg;
Label1.Caption := 'Punkte : ' + inttostr ((High(linie) - 3) * 10);
end;
 
procedure TForm6.verloren;
var i :integer;
begin
 
if (linie[0].x = futter.x) and  (linie[0].y = futter.y) then
begin
futter.x := (Random(480 Div 20) + 1) * 20;
futter.y := (Random(380 Div 20) + 1) * 20;
time := 0;
SetLength(linie,High(linie)+2);
futter_setzen;
end;
 
if (linie[0].x <= 10) or (linie[0].y <= 10) or (linie[0].x >= 500) or (linie[0].y >= 400) then
loser := true;
 
for i:= 1 to High(linie) do
 if (linie[0].x = linie[i].x) and (linie[0].y  = linie[i].y) then
 loser := true;
 
end;
 
procedure TForm6.Timer1Timer(Sender: TObject);
var i,rep:integer;
begin
inc(time);
 
if time > futter.interval then begin
futter.x := (Random(480 Div 20) + 1) * 20;
futter.y := (Random(380 Div 20) + 1) * 20;
time := 0;
futter_setzen;
end;
 
for i := high(linie) downto 1 do
linie[i] := linie[i-1];
 
 with Image1.Canvas do
 begin
 Brush.Color := clBlack;
Rectangle(0,0,Image1.Width,Image1.Height);
 Pen.Width := 10;
 pen.Color := clred;
 MoveTo(futter.x,futter.y);
 Lineto(futter.x,futter.y);
 pen.Color := clred;
 inc(linie[0].x,Xrichtung);
 inc(linie[0].y,Yrichtung);
 
 
 
verloren;
if loser = true then
begin
Timer1.Enabled := false;
Label1.Caption:='Haha Verloren, Trottel';
//rep := Application.MessageBox('Sie haben verloren!','Looser!',MB_ICONINFORMATION + MB_RETRYCANCEL);
//if rep = ID_Retry then FormCreate(sender);
exit;
end;
 
 
  for i:= 1 to High(linie)-1 do
  begin
  pen.Width := 10;
  pen.Color := clred;
  Rectangle(linie[i].x -5,linie[i].y -5,linie[i].x +5,linie[i].y +5);
  pen.Color := clblack;
  Pixels[0,0] := clblack;
  Rectangle(linie[i].x -3,linie[i].y -3,linie[i].x +3,linie[i].y +3);
  end;
  pen.Color := clred;
  Ellipse(linie[0].x -6,linie[0].y -6,linie[0].x +6,linie[0].y +6);
  Rectangle(linie[0].x -4,linie[0].y -4,linie[0].x +4,linie[0].y +4);
 
 
  end;
taste_gedr:=false;
Image1.Canvas.Pixels[0,0]:= clred;
end;
 
procedure TForm6.FormCreate(Sender: TObject);
begin
 
With image1.Canvas do begin
pen.Width := 10;
pen.Style := psSolid;
brush.Style := bsSolid;
pen.Color := clred;
Rectangle(0,0,Image1.Width,Image1.Height);
 
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
end;
 
 
 
//Am Anfang Richtung: nach rechts
Yrichtung:=0;
Xrichtung:=-20;
futter.interval := 40;
time :=2000;
loser:=false;
Randomize;
 
 
 
SetLength(linie,4);
 
//Anfangsposition
linie[0].x := 220;
linie[0].y := 200;
linie[1].x := 240;
linie[1].y := 200;
linie[2].x := 260;
linie[2].y := 200;
linie[3].x := 280;
linie[3].y := 200;
 
timer1.Enabled := false;
timer1.Enabled:=true;
taste_gedr:=false;
end;
 
 
 
procedure TForm6.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if taste_gedr = false then
begin
 if (key = vk_up) and (Yrichtung <= 0) then
  begin
    Yrichtung:= -20;
    Xrichtung:= 0;
    taste_gedr:=true;
  end;
 
 if (key = vk_left) and (Xrichtung <= 0) then
  begin
    Yrichtung:= 0;
    Xrichtung:= -20;
    taste_gedr:=true;
  end;
 
 if (key = vk_space) then
  begin
    Yrichtung:= 0;
    Xrichtung:= 0;
    taste_gedr:=true;
  end;
 
 if (key = vk_right) and (Xrichtung >= 0) then
    begin
    Yrichtung:= 0;
    Xrichtung:= 20;
    taste_gedr:=true;
  end;
 
 if (key = vk_down) and (Yrichtung >= 0) then
    begin
    Yrichtung:= 20;
    Xrichtung:= 0;
    taste_gedr:=true;
  end;
end;
end;
 
procedure TForm6.Button1Click(Sender: TObject);
begin
//Timer1.Enabled := true;
FormCreate(sender);
end;
 
end.

Danke für Hilfe...

Edit by i0n0s:
Pascal-Tags sowie Code im Anhang.

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Nach oben

Sellmann

Betreff des Beitrags:

Verfasst: Mo Dez 08, 2008 23:51

DGL Member

Registriert: Fr Jan 04, 2008 21:29
Beiträge: 419
Wohnort: Lübeck

für tasten abfragen verwende ich nen Code in der form:

Code:

 
  if getasynckeystate(VK_UP) <> 0
  then top:= top + fps*128;

dieser code wird unabhängig vom focus ausgeführt (wenn man nicht aufpasst sogar, wenn nichteinmal das Programm
aktiv ist, was zur folge hat, dass zB. das Schreiben in ICQ auch die events auslöst).
Funktionieren tut es dafür zuverlässig in den meisten Fällen. mit einem Array[0..255] of boolean, kann man dann
den zustand speichern, ob die taste noch gedrückt ist. dafür verwende ich dann diesen code:

Code:

 
  var keylist:array[0..255] of boolean;
 
  if getasynckeystate(VK_UP) <> 0
  then begin
      if (keylist[VK_UP]=false)
      then aktionausfuehren;
      keylist[VK_UP]:= true;
  end
  else keylist[VK_UP]:= false;
 

auf diese weiße kann man eine aktion nur einmal pro tastendruck ausführen. Ist zwar zum herum fahren auf tastendruck
unnötig, aber bei anderen Sachen wider nützlich.
Allerdings weiß ich nicht, ob diese Lösung so sauber ist, wie sie mir rüberkommt.

grüße!

_________________
Klar Soweit?

Nach oben

Seite 1 von 1

[ 6 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 6 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.