Wie kann man die Position eines komponenten gezielt ändern?

[malo]

So klassische Anfängerfragen halt

Naja, ich weiß bereits aus einem Tutorial, wie man die Stellung zufällig verändern kann. Aber wie kann man die Position gezielt verändern?

Ich will jetzt zum Beispiel ein Label per Klick auf einen Button nach Rechts hüpfen lassen, beim zweiten Klick auf den selben Button soll es wieder nach links hüpfen.

Außerdem wüsste ich gerne grundsätzlich, wie man einen Komponenten mit mehreren Funktionen belegen kann, die dann immer abwechselnt bei jedem Klick auf einen Button genutzt werden.

Beispiel: Button 1 soll beim ersten Klick Label 1 umbenennen. Beim zweiten Klick auf Button 1 soll Label 1 einen anderen Namen bekommen.



Wie gesagt: Bin halt ein totaler Anfänger, hab gestern angefangen mit delphi zu arbeiten...

thx schonmal!

[alcaeus]

Hi malo,

erstens, herzlich willkommen in der DP.

Zu deiner ersten Frage:
Wenn du z.B. Label1 nach rechts hüpfen lassen willst, dann schreib folgenden Code in die OnClick-Routine des Buttons:

Delphi-Quellcode:

if Label1.Tag = 0 then
  Label1.Left := Label1.Left + 50
else
  Label1.Left := Label1.Left + 50;
Label1.Tag := 1-Label1.Tag;

Hierbei wird Label1.Tag "missbraucht", um zu erkennen, ob das Label nach rechts oder nach Links muss.

Und zur zweiten Frage: Neue Frage => Neuer Thread.

Greetz
alcaeus

[malo]

Och nö, will keinen Thread aufmachen *Faulist*

Naja, thx für die Antwort. Mit dem OnClick Button kenn ich mich schon aus

Naja, ich mach dann mal den Thread auf

[malo]

Ähm... ein Problemchen hab ich dabei noch: Jetzt springt Label1 immer ein stückchen nach rechts. Ich hab mir da eher gedacht, Label1 immer von rechts nach links springen zu lassen Oo

[alcaeus]

Hi malo,

Delphi-Quellcode:

if Label1.Tag = 0 then
  Label1.Left := Label1.Left + 50
else
  Label1.Left := Label1.Left - 50;
Label1.Tag := 1-Label1.Tag;

My bad... ein kleiner Fehler im Code (im else Zweig stand noch +)

Greetz
alcaeus

[add]Wow, sind ja schon 1700 Beiträge [/add]

[malo]

Jetzt klappt's wunderbar! Geil, danke