Registriert seit: 15. Jul 2006
Ort: Bad Münstereifel
627 Beiträge
Delphi 5 Professional
|
Re: Was gibts für Möglichkeiten die Tastatur abzufragen?
15. Jul 2006, 16:13
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]
|
|
Zitat
|