![]() |
Fenster bewegen
Wie kann man erreichen, dass sich ein Fenster bewegt?
Das Fenster soll sich durch einen Timer gesteuert, an eine zufällig bestimmte Position bewegen. Thx! MfG Florian |
Kuck dir mal die Eigenschaften Left und Top von TForm an.
|
Ich weiss, dass in dem Buch: "Delphi 6 Grundlagen und Profiwissen" die erste Übung ist, ein Programm zu schreiben bei dem folgendes passiert:
Man nehme eine Form, platziere einen Button auf ihr, nenne ihn Beenden und schreibe dann die OnMouseMove Prozedur. In der steht, dass sich das Fenster an eine zufällige Position bewegt, wenn man mit der Maus über oder an den Buttonrand fährt. Hat irgendwer das Buch und könnte den Code mal posten? Der funktioniert nämlich. Thx! MfG Florian |
Ich hab das mal selber probiert:
Delphi-Quellcode:
Hat nicht so toll funktioniert. Meine Form ist immer oben links hängen geblieben oder ganz vom Bildschirm verschwunden. Das klappt also nicht.
begin
Form1.Top:= random(1000); Form1.Left:= random(1000); end; hm... Vielleicht könnte es funktionieren, wenn man den Wert in der Klammer ändert. Aber auf welchen Wert? Auf keinen Fall darf das Fenster den sichtbaren Bereich des Bildschirms verlassen. Es soll so schön rumspringen wie das hier: ![]() Thx im Voraus! MfG Florian |
da gibts was, was die höhe und breite des desktops angibt, aber weiss net wies geht, probier doch einfach die werte in den klammern entsprechend kleiner zu machen!
gruss haegar |
In einem VCL-Projekt gibts die Bildschirmgrröße unter Screen.DesktopWidth bzw. Screen.DesktopHeight
|
Setz mal für 1000 entsprechend die Höe und Breite des Bildschirmes ein: Screen.Width und Screen.Height.
|
Zitat:
musst also noch die höhe und breite des formulars abziehen...
Delphi-Quellcode:
so das sollte es eigentlich sein
form.left:=random(screen.width-form.width);
form.top:=random(screen.height-form.height); gruss haegar |
Zitat:
Delphi-Quellcode:
Grüsse, Daniel :hi:
Button1.Left := Random(Form1.ClientWidth - Button1.Width);
Button1.Top := Random(Form1.ClientHeight - Button1.Height); |
Genau das hab ich gesucht :!: Wenn ich zuhause bin probier ich das aus. :bouncing4: :bounce1: :bounce2:
thx! MfG Florian |
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:27 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 by Thomas Breitkreuz