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

[dino]

Wenns get bitte in Echtzeit, denn ich habe vor eine Mario Version eines coolen GameBoy spiels zu Programmieren, und da ists ärgerlich, wenn man zwar Drücken würde, das Programm aber nicht reagiert...


ach und zu was gehört eientlich Delphi3?

[EDatabaseError]

erstmal Hallo in der DP!

bitte formulier dich ein bisschen genauerer...und benutze die Forensuche.

Schau dir mal OnKeyDown und OnKeyPress an.

[3_of_8]

Delphi 3 ist Win32.

Ich weiß nicht, wie viel Erfahrung du schon mit Delphi hast, wenn du viel Erfahrung hast, dürfte GetAsyncKeyState oder DelphiX interessant für dich sein, ansonsten OnKeyDown.

[dino]

beachte, dass bei so einem Spiel auch mal ein Knopf immer wieder mal Gedrückt wird, während ein anderer Knopf gedrückt bleibt

geht das?
STRG Umschalt und das alles ist aber unwichtig

[3_of_8]

Dann wäre ein array[0..127] of Boolean nützlich, das du in etwa so füllst:

Delphi-Quellcode:

var I: Integer;
    keys: array[0..127] of Boolean;
//...
for I:=0 to high(keys) do
  keys[I]:=GetAsyncKeyState(I)=-1;

[dino]

was passiert da genau?

[3_of_8]

Es wird für sämtliche relevanten Tasten abgefragt, ob sie gedrückt sind oder nicht.

Wenn du jetzt abfragen willst, ob die Taste W gedrückt ist, steht das in keys[Ord('W')].

Wenn du abfragen willst, ob die Pfeiltaste unten gedrückt ist, machst du keys[VK_DOWN].

[dino]

klappt noch nicht

[dino]

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

end.

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

[3_of_8]

Tausche mal das Pixels-Zeugs aus gegen showmessage('blubb'), vielleicht gehts dann.

Denn die Form refresht ständig, dann siehst du den roten Pixel nicht mehr.