@Neolithos: Alles klar, dann werde ich das mal so testen.
Allerdings habe ich hier momentan noch ein anderes Problem. Wenn ich einen Button anklicke, soll sich das Formular in Richtung Bildschirmrand bewegen. Sollte das schon dort sein, soll es sich um 70 Pixel darüber hinaus in den negativen Bereich bewegen. Das macht es aber nicht. Auch bewegt es sich z.B. einwandfrei von zB Position "left" 100 nach 500, nur eben nicht von 500 nach 100 zurück. Ich lege mal den Code bei...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if YPos = 0 then
begin
for i := YPos to -70 do
begin
form1.Left := i;
sleep(10);
end;
end
else
if not YPos = 0 then
begin
for i := YPos to 0 do
begin
form1.Left := i;
sleep(10);
end;
end;
end;
Ciao
DieTa
[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]