Hallo Flomei,
Deine Funktion z.B.
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
Form1.Borderstyle:=bsSingle;
ist. Wenn Du aber
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