Verschieben von Buttons mit Befehl [Anfängerfrage]
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 :bouncing4: :bounce1: :bounce2: :firejump: |
Re: Verschieben von Buttons mit Befehl [Anfängerfrage]
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 :oops: |
Re: Verschieben von Buttons mit Befehl [Anfängerfrage]
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; |
Re: Verschieben von Buttons mit Befehl [Anfängerfrage]
Left und Top
[Edit: .Left setzt die Position:
Delphi-Quellcode:
]
if Key = 'VK_DOWN' then Button1.left := Button1.left - 1;
|
Re: Verschieben von Buttons mit Befehl [Anfängerfrage]
bau das ganze doch in einen Timer ein und dann mit
Delphi-Quellcode:
if GetAsyncKeyState(VK_DOWN) then Button1.left := 1; |
Re: Verschieben von Buttons mit Befehl [Anfängerfrage]
Zitat:
|
Re: Verschieben von Buttons mit Befehl [Anfängerfrage]
Zitat:
Mit top geht es auch nicht. |
Re: Verschieben von Buttons mit Befehl [Anfängerfrage]
Zitat:
|
Re: Verschieben von Buttons mit Befehl [Anfängerfrage]
Zitat:
[Fehler] Unit1.pas(29): Inkompatible Typen: 'Char' und 'Integer' [Fehler] Unit1.pas(30): Inkompatible Typen: 'Char' und 'Integer' :?: :?: |
Re: Verschieben von Buttons mit Befehl [Anfängerfrage]
dann versuche es unter KeyDown
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:19 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz