Fenster bewegen

[flomei]

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

[Luckie]

Kuck dir mal die Eigenschaften Left und Top von TForm an.

[flomei]

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

[flomei]

Ich hab das mal selber probiert:

Delphi-Quellcode:

begin
Form1.Top:= random(1000);
Form1.Left:= random(1000);
end;

Hat nicht so toll funktioniert. Meine Form ist immer oben links hängen geblieben oder ganz vom Bildschirm verschwunden. Das klappt also nicht.

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:Klick mich! Achtung! Speichert vorher ab, wenn ihr nen OS ohne Taskmanager habt. Am besten geht das mit dem Internet Explorer. Zumindest bei mir.


Thx im Voraus!

MfG Florian

[Haegar]

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

[Chewie]

In einem VCL-Projekt gibts die Bildschirmgrröße unter Screen.DesktopWidth bzw. Screen.DesktopHeight

[Luckie]

Setz mal für 1000 entsprechend die Höe und Breite des Bildschirmes ein: Screen.Width und Screen.Height.

[Haegar]

Zitat von Luckie:

Setz mal für 1000 entsprechend die Höe und Breite des Bildschirmes ein: Screen.Width und Screen.Height.

dann kann es ja immer noch ausserhal liegen....
musst also noch die höhe und breite des formulars abziehen...

Delphi-Quellcode:

form.left:=random(screen.width-form.width);
form.top:=random(screen.height-form.height);

so das sollte es eigentlich sein

gruss haegar

[Daniel B]

Zitat von flomei:

Ich weiss, dass in dem Buch: "Delphi 6 Grundlagen und Profiwissen" die erste Übung ist, ein Programm zu schreiben bei dem folgendes passiert:

Delphi-Quellcode:

Button1.Left := Random(Form1.ClientWidth - Button1.Width);
Button1.Top := Random(Form1.ClientHeight - Button1.Height);

Grüsse, Daniel

[flomei]

Genau das hab ich gesucht Wenn ich zuhause bin probier ich das aus.

thx!

MfG Florian