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

[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]