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

[dino]

nein das canvas.pixels ist ne Angewohnheit, da hatte ich noch nie Probleme mit, und ausserdem refresht die nicht ständig, jedenfall hab ichs mit OnKeyPress ganz gut raus, nur wie kann ich abfragen ob key='a' ist denn so klappts eben nicht

[3_of_8]

Kein Wunder, dass das nicht geht. Es muss auch -1 heißen, nicht 1.

[dino]

da stand aber irendwas von inkompatible typen

[3_of_8]

Delphi-Quellcode:

implementation

{$R *.DFM}

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

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
for i:=0 to high(keys) do keys[i]:=GetAsyncKeyState(i)=low(SmallInt);
if keys[VK_DOWN] then form1.canvas.Pixels[100,100]:=clred;
end;

end.

So gehts.

[dino]

hab jetzt

Delphi-Quellcode:

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

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.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = Ord('A') then form1.canvas.pixels[100,100]:=clred;
if key = Ord('S') then form1.canvas.pixels[200,100]:=clred;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.canvas.pixels[100,100]:=clBtnFace;
form1.canvas.pixels[200,100]:=clBtnFace;
end;

aber wenn ich ein Knopf Gedrückt halte und dann einen weiteren Knopf Drücke klappt nichts mehr wie es soll

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[3_of_8]

Nimm halt meinen Code von oben.

[dino]

klappt noch nicht

[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)=low(SmallInt);
if keys[VK_Down] then form1.canvas.Pixels[100,100]:=clred;
end;
end.

so ists doch richtig oder?

[3_of_8]

Bei mir schon, seltsam. Was genau funkioniert denn nicht? Mach mal bissel debugging, lass dir Wert per showmessage ausgeben usw...

[dino]

das Programm äuft, nur wirds nicht rot :(