Ein Label mit hilfe von den Tasten Hoch Runter bewegen

DelphiDome · Hält's aus hier Beiträge: 15

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 · Verfasst: Fr 14.01.11 17:23

Moin und

im Forum!

Leg mit einem Doppelklick auf dem Ereignis OnKeyDown des Formulars einen passenden Handler an und füge dann diesen Code ein: :idea:

markieren

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

_________________
There are 10 types of people - those who understand binary and those who don´t.

DelphiDome · Hält's aus hier Beiträge: 15

danke hat mir sehr geholfen

DelphiDome · Hält's aus hier Beiträge: 15

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 · Verfasst: So 16.01.11 19:57

z.B. mit

markieren

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

_________________
Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme