![]() |
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! |
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:
Hierbei wird Label1.Tag "missbraucht", um zu erkennen, ob das Label nach rechts oder nach Links muss.
if Label1.Tag = 0 then
Label1.Left := Label1.Left + 50 else Label1.Left := Label1.Left + 50; Label1.Tag := 1-Label1.Tag; Und zur zweiten Frage: Neue Frage => Neuer Thread. :dp: Greetz alcaeus |
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 ;) |
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
|
Re: Wie kann man die Position eines komponenten gezielt ände
Hi malo,
Delphi-Quellcode:
:roll: My bad... ein kleiner Fehler im Code (im else Zweig stand noch +)
if Label1.Tag = 0 then
Label1.Left := Label1.Left + 50 else Label1.Left := Label1.Left - 50; Label1.Tag := 1-Label1.Tag; Greetz alcaeus [add]Wow, sind ja schon 1700 Beiträge :shock: :party:[/add] |
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 16:07 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz