Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Ein Label mit hilfe von den Tasten Hoch Runter bewegen
DelphiDome - Fr 14.01.11 17:00
Titel: Ein Label mit hilfe von den Tasten Hoch Runter bewegen
Hallo erstmal
Ich möchte gerne mit den Tasten Hoch und Runter ein Label Hoch und Runter Bewegen.
Ich weiß leider noch nicht wie man die tastatur für solche sachen einbindet.
Danke schon mal im voraus
Moderiert von 
Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Fr 14.01.2011 um 16:18
Narses - Fr 14.01.11 17:23
Moin und :welcome: im Forum!
Leg mit einem Doppelklick auf dem Ereignis OnKeyDown des Formulars einen passenden Handler an und füge dann diesen Code ein: :idea: ;)
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| case Key of
VK_RIGHT: Label1.Left := Label1.Left +16;
VK_LEFT: Label1.Left := Label1.Left -16;
VK_DOWN: Label1.Top := Label1.Top +16;
VK_UP: Label1.Top := Label1.Top -16;
end; |
Programm mit F9 starten und ausprobieren. :)
cu
Narses
DelphiDome - Fr 14.01.11 18:28
danke hat mir sehr geholfen
DelphiDome - So 16.01.11 19:27
und wie kann man das begrenzen das dass label nicht ohne ende sich bewegt also das an eine bestimmten stelle stopt
und auch schonmal danke im voraus
ALF - So 16.01.11 19:57
z.B. mit
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| VK_LEFT: if label1.left < begrenzunglinks then
label1.left:= begrenzunglinks
else
label1.left:= label1.left -16
......
...... |
wobei 'begrenzunglinks' eine Variable vom Typ integer ist, die Du natürlich noch festlegen musst.
Für die anderen Richtungen machst Du es genauso.
Gruss ALf
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!