Hallo,
ich möchte gerne zwei Buttons in den Bildschirm "hineinfliegen" lassen.
Und zwar sollen sie sich bis an ihre aktuelle Position bewegen.
Ich hab das so probiert:
moveButton(0).InitializeTranslate("Animation",-150dip, Button1.Top, Button1.Left, Button1.Top)
Button1.Tag = moveButton(0)
moveButton(0).Duration = 800
moveButton(0).RepeatCount = 0
moveButton(0).Start(Button1)
Sie bewegen sich auch ungefähr richtig aber an die falschen Endposition und in der falschen Höhe.
Kann mir vielleicht jemand sagen, was ich da falsch gemacht habe?
Schonmal danke im vorraus
ich möchte gerne zwei Buttons in den Bildschirm "hineinfliegen" lassen.
Und zwar sollen sie sich bis an ihre aktuelle Position bewegen.
Ich hab das so probiert:
moveButton(0).InitializeTranslate("Animation",-150dip, Button1.Top, Button1.Left, Button1.Top)
Button1.Tag = moveButton(0)
moveButton(0).Duration = 800
moveButton(0).RepeatCount = 0
moveButton(0).Start(Button1)
Sie bewegen sich auch ungefähr richtig aber an die falschen Endposition und in der falschen Höhe.
Kann mir vielleicht jemand sagen, was ich da falsch gemacht habe?
Schonmal danke im vorraus
