Verschieben von Buttons mit Befehl [Anfängerfrage]

[Landfloh]

Hallo

Ich möchte mit einem Befehl einen Button verschieben.

Wenn ich Cursor oben drücke soll der button nach oben gehen wenn ich nach unten mit dem Cursor drücke soll der Button nach unten gehen wenn nach links dann nach links und wenn nach rechts dann nach rechts.

Was muss ich reinschreiben wenn ich in das Ereignis Form1 und da auf OnKeyPress gehe?

Gruf Landfloh

[MrMyagi]

Moin,
mit Button1.left bzw Button1.Top müsste es gehen
und wegen Tastenabfrage solltest Du mal nach
GetKeyState suchen.


mfG, Nico

Edit: Fehler verbessert

[Landfloh]

Und warum geht denn das nicht?

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = 'VK_DOWN' then Button1.left := 1;
end;

[mkinzler]

Left und Top
[Edit: .Left setzt die Position:
if Key = 'VK_DOWN' then Button1.left := Button1.left - 1; ]

[MrMyagi]

bau das ganze doch in einen Timer ein und dann mit

Delphi-Quellcode:

  if GetAsyncKeyState(VK_DOWN) then Button1.left := 1;

[Xong]

Zitat von Landfloh:

Und warum geht denn das nicht?

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  // Wenn "Nach-Unten"-Taste gedrückt wurde, setze Button.left auf 1. Öhm...
  //if Key = 'VK_DOWN' then Button1.left := 1;
  case Key of
    VK_DOWN: Button1.Top := Button1.Top + 1;
    VK_UP: Button1.Top := Button1.Top - 1;
    {...}
  end;
end;

[Landfloh]

Zitat von mkinzler:

Left und Top

if Key = 'VK_DOWN' then Button1.left := Button1.left - 1;

Das mit left steht da doch und es functioniert nicht.
Mit top geht es auch nicht.

[DeddyH]

Zitat von Xong:

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  // Wenn "Nach-Unten"-Taste gedrückt wurde, setze Button.left auf 1. Öhm...
  //if Key = 'VK_DOWN' then Button1.left := 1;
  case Key of
    VK_DOWN: Button1.Top := Button1.Top + 1;
    VK_UP: Button1.Top := Button1.Top - 1;
    {...}
  end;
end;

Müsste das so nicht in KeyDown stehen?

[Landfloh]

Zitat von Xong:

Zitat von Landfloh:

Und warum geht denn das nicht?

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  // Wenn "Nach-Unten"-Taste gedrückt wurde, setze Button.left auf 1. Öhm...
  //if Key = 'VK_DOWN' then Button1.left := 1;
  case Key of
    VK_DOWN: Button1.Top := Button1.Top + 1;
    VK_UP: Button1.Top := Button1.Top - 1;
    {...}
  end;
end;

Dann kommen die Fehlermeldungen:
[Fehler] Unit1.pas(29): Inkompatible Typen: 'Char' und 'Integer'
[Fehler] Unit1.pas(30): Inkompatible Typen: 'Char' und 'Integer'

[STS301]

dann versuche es unter KeyDown