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:

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:

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 :hi:

[flomei]

Genau das hab ich gesucht :!: Wenn ich zuhause bin probier ich das aus. :bouncing4: :bounce1: :bounce2:

thx!

MfG Florian

[flomei]

Ich hab den Code von Daniel genommen, aber das einzige was passiert ist, dass meine Form oben links in die Ecke spring. Das ist nicht schön! :-(
Sie kommt da nämlich nicht mehr weg.

Weitere Hilfe erbeten!

Thx!

MfG Florian

[Specialwork]

Habt Ihr mal versucht, vor dem Aufruf der random Funktion die Initialisierung mit

Delphi-Quellcode:

Randomize;

aufzurufen.

Gruß, Tom

[Specialwork]

Also bei mir funktioniert es anstandlos

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Achtung: Timer1.Enabled=False;
  Timer1.Enabled:=True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Left := Random(Screen.Width-Width);
  Top := Random(Screen.Height-Height);
end;

end.

Gruß, Tom

[flomei]

Ich hab da mal ein Randomize; vorgesetzt aber das zeigt keinen Effekt.

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Randomize;
Form1.Top:= random(Form1.ClientHeight - Form1.Height);
Form1.Left:= random(Form1.ClientWidth - Form1.Width);
end;

Das ist der Code der OnMouseMove Prozedur meiner Form. Sie springt immer nach links oben in die Ecke.

Vielleicht könnte man auch etwas anderes machen:

Form bewegt sich von links unten nach rechts oben, von da nach rechts unten und dann nach links oben, bewegt sich nach links unten und fängt von vorne an. Mit Schleifen und Bedingungen, oder so???

Thx!

MfG Florian

[Haegar]

Zitat:

Das ist der Code der OnMouseMove Prozedur meiner Form. Sie springt immer nach links oben in die Ecke.

dann schau dir nochmal die werte deiner klammern ...random(...);
an, und vergleiche die mal mit den ganzen hier geposteten codes!!

gruss haegar

[Specialwork]

Hallo Flomei,

Deine Funktion z.B.

Delphi-Quellcode:

Random(Form1.ClientHeight - Form1.Height);

liefert immer den gleichen Wert (+-1) bis auf das Vorzeichen.

Ich hab mir mal die Werte ausgeben lassen:

Delphi-Quellcode:

LEFT: -32768TOP : 32767
LEFT: 32767TOP : -32768
LEFT: -32768TOP : 32767
LEFT: -32768TOP : -32768
LEFT: 32767TOP : -32768
LEFT: 32767TOP : -32768
LEFT: 32767TOP : -32768
LEFT: 32767TOP : -32768
LEFT: 32767TOP : -32768
LEFT: 32767TOP : -32768
LEFT: 32767TOP : 32767
LEFT: 32767TOP : -32768
LEFT: 32767TOP : -32768
LEFT: 32767TOP : 32767

Diese Werte erhalte ich nur, wenn

Delphi-Quellcode:

Form1.Borderstyle:=bsSingle;

ist. Wenn Du aber

Delphi-Quellcode:

Form1.Borderstyle:=bsNone;

eingestellt hast, bekomme ich nur Null. Das erklärt a) bsSingle: warum Deine Form zur Laufzeit verschwindet; und b) bsNone: warum Deine Form oben links in der Ecke plaziert ist.

Gruß, Tom

[Luckie]

Ist doch ganmz simple: ClientHeight ist die Höhe des Client-Bereiches des Fensters und Height die gesamt Höhe.

[flomei]

Zitat:

Zitat von Specialwork

Delphi-Quellcode:

Form1.Borderstyle:=bsSingle;

ist. Wenn Du aber

Delphi-Quellcode:

Form1.Borderstyle:=bsNone;

eingestellt hast, bekomme ich nur Null. Das erklärt a) bsSingle: warum Deine Form zur Laufzeit verschwindet; und b) bsNone: warum Deine Form oben links in der Ecke plaziert ist.

Das sollte eigentlich nichts damit zu tun haben, oder?

Wo liegt denn jetzt der Fehler?

Thx!

MfG Florian

[flomei]

Prima! Es geht jetzt! Manchmal ist geposteter Code doch am besten. :wink:

Thx!

MfG Florian