Tastatur Befehl!

[Wargrave]

Halli Hallo!
Damit ihr was zu tun habt habe ich auch schon wieder die nächste Frage.
Ich will das ein Icon eine stelle weiterrutscht wenn ich eine Taste auf der Tastatur drücke.

also: if( ???? key 'm' pressed)
then
icon.Left:=icon.Left+10;

oder wie is da der befehl?
Danke danke der Wargrave

[Aenogym]

hi wargrave,

hier ein beispiel:

Delphi-Quellcode:

procedure TForm1KeyDown(sender: TObject; key: word; shift: TShiftState);
begin
  if key = vk_left then
    icon.left := icon.left-10;
end;

das ganze ins OnKeyDowwn des formulars. am besten noch KeyPreview auf True stellen.
die ganzen key-codes stehen in der delphi hilfe unter dem stichwort "virtuelle tastencodes"

Aenogym

[ipworks]

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Ord(key)=109 then icon.Left:=icon.Left+10; 
end;

[ipworks]

sorry.....
Die 109 stehen für ein "m"..dachte du wolltest das "m" benutzen.

[Aenogym]

Zitat von ipworks:

sorry.....
Die 109 stehen für ein "m"..dachte du wolltest das "m" benutzen.

nein, ich sorry

er will 'm' erfahren. dann geht auch

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = 'm' then
    icon.Left := icon.Left + 10;
end;

Aenogym

[Wargrave]

Der MArkiert aber das FormKeyPress.

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = 'm' then
    Autos.Left := Autos.Left + 10;
end;

Also ich habe das einfach in den quelltext eigefügt und KeyPrview auf true gesetzt.
Was muss ich nich machen?
Vielen Dank schonmal für die Antowrten!

[Wargrave]

Okay danke es funzt!
Habe bei den erreignissen des Form1 Key press angeklickt!
Jupp danke danke