Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Wie kann man die Position eines komponenten gezielt ändern? (https://www.delphipraxis.net/30063-wie-kann-man-die-position-eines-komponenten-gezielt-aendern.html)

malo 19. Sep 2004 13:07


Wie kann man die Position eines komponenten gezielt ändern?
 
So klassische Anfängerfragen halt :roll:

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 19. Sep 2004 13:11

Re: Wie kann man die Position eines komponenten gezielt ände
 
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. :dp:

Greetz
alcaeus

malo 19. Sep 2004 13:17

Re: Wie kann man die Position eines komponenten gezielt ände
 
Och nö, will keinen Thread aufmachen *Faulist* :roll:

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

Naja, ich mach dann mal den Thread auf ;)

malo 19. Sep 2004 13:31

Re: Wie kann man die Position eines komponenten gezielt ände
 
Ä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 19. Sep 2004 13:34

Re: Wie kann man die Position eines komponenten gezielt ände
 
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;
:roll: My bad... ein kleiner Fehler im Code (im else Zweig stand noch +)

Greetz
alcaeus

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

malo 19. Sep 2004 13:38

Re: Wie kann man die Position eines komponenten gezielt ände
 
Jetzt klappt's wunderbar! Geil, danke :D


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:29 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