"Tastatur abfragen?" sehr gut gelöst-> hier ne Exe-Datei

[3_of_8]

Lass dir die Werte per showmessage ausgeben, um herauszufinden, warum.

[dino]

Delphi-Quellcode:

var i:Integer;
keys:array[0..127] of Boolean;

procedure TForm1.FormClick(Sender: TObject);
begin
if timer1.enabled = false then begin
form1.width:=screen.width;
form1.height:=screen.height;
form1.position:=poscreencenter;
timer1.enabled:=true;
end
else
close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
for i:=0 to high(keys) do keys[i]:=GetAsyncKeyState(i)=0;
if keys[VK_Down]=false then form1.canvas.pixels[100,100]:=clred else form1.canvas.pixels[100,100]:=clBtnFace
end;
end.

Es klappt mit einer Taste

[dino]

Perfeckt Danke Danke

[3_of_8]

?

Wasn jetzt los?

[dino]

weiss zwar nicht waqrum aber mit =0 und =false klappts

[dino]

hab =low(SmallInt) durch =0 ersetzt und =false eingefügt jetzt klappts!

[3_of_8]

Was hast du als Timer Interval? Ich würde 1 einstellen. Ansonsten kannst du machen GetAsyncKeyState(I)<0.

[dino]

hab 1!

[dino]

als Zeichen meiner Dankbarkeit:
Dies ist mein Professionelles AmeisenSimulationsprogramm!
für Freaks ganz lustig sich das mal ne stunde oder so anzuschauen

(für 1600 * 1200 Bildschirmauflösung geschrieben)

[dino]

hab aus einfachheit das =false einfach statt da wos jetzt ist ans =0 gesetzt und klappt genauso