Hallo mal wieder!!!
Ich wollte mal was programmieren, nämlich ein TImage bewegt sich über die Form....
Mit TKeyDown hats schon ganz gut geklappt, allerdings fehlt noch ne richtung.
hier mal mein bisheriger Source..
Delphi-Quellcode:
var
Form1: TForm1;
w: #
//
s: #
//Hier solen die
a: #
//ASCII Codes hin
d: #
//
implementation
{$R *.dfm}
procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
case key
of
'
w' : ImUfo.top:=ImUfo.top-5;
'
s' : ImUfo.top:=ImUfo.top+5;
'
a' : ImUfo.left:=ImUfo.left-5;
'
d' : ImUfo.left:=ImUfo.left+5;
end;
end;
end.
Wie schon im Source geschrieben, da SOLLEN die codes hin, habe aber im netz keine Liste/Tabelle gefunden, auch die
dp suche hat nix gnützt
Falls wer ne Liste/Tabelle oder nen guten Link hat....oder mir die codes für die cursortasten sagen kann.....
feel free to post