Летающий Label

[Terran]

Всем привет! Чтобы не вводить в заблуждение напишу просто. Есть форма определённого размера и на ней находится Label. Вопрос заключается в следующем. Label должен начать движение в любую сторону к краю формы(не обязательно ровное движение. Возможно и на угол и наискосяк) и когда он достигнет края, то должен изменить своё направление т.е. под каким углом прилетел к краю формы под таким же должен и улететь но только в другом направлении пока не достигнет другого края формы и так до бесконечности. Т.е. на принципе мячика, который отпрыгивает от стенки. Может кто-нибудь знает простой способ как такое можно осуществить. Или может есть примеры. Буду рад любой информации. Язык Delphi

[Hacker19_90]

Как насчёт так

var
  Form1: TForm1;
  l, r: boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
    r := true;
    l := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if (label1.Left <> 0) and (r = true) then
    begin
        label1.Left:= label1.Left -1;
    end
    else
        begin
            l := true;
            r := false;
            if ((label1.Left + label1.Width) <> (form1.Width - label1.Width)) and (l = true) then
             begin
                 label1.Left := label1.Left + 1;
             end
             else
                begin
                    l := false;
                    r := true;
                end;
        end;
end;

[Terran]

Спасибо за код! Но это немного не то, что нужно. Нужно движение по диагонали с изменением направления движения.

[Terran]

Всё. Разобрался со своей проблемой. Выкладываю код. Может кому пригодится.

Var
PosX,PosY,SpX,SpY: Integer;
Procedure Move;
Begin
PosX:=PosX+SpX;
PosY:=PosY+SpY;
If PosX > Form1.ClientWidth - Form1.Label1.Width Then
Begin
PosX:=Form1.ClientWidth - Form1.Label1.Width;
SpX:= - SpX;
End
Else
If PosX < 0 Then
Begin
PosX:=0;
SpX:= - SpX;
End;
If PosY > Form1.ClientHeight - Form1.Label1.Height Then
Begin
PosY:=Form1.ClientHeight - Form1.Label1.Height;
SpY:= - SpY;
End
Else
If PosY < 0 Then
Begin
PosY:=0;
SpY:= - SpY;
End;
Form1.Label1.Left:=Round(PosX);
Form1.Label1.Top:=Round(PosY);
End;
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Move;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
PosX:=0;
PosY:=0;
SpX:=5;
SpY:=5;
End;

Hacker19_90, спасибо за помощь!

[glGizma]

А если сделать вот так:

Screen.WorkAreaWidth - Form1.Width
Screen.WorkAreaHeight - Form1.Height
и в конце
Form1.Left:=Round(PosX);
Form1.Top:=Round(PosY);

Пример:

glGizma.narod.ru/download/posx-posy.rar

Буит ещё луче , если у вас (как и у меня) 2или3 монитора, рекомендую использовать Desktop. Написал тут с корешом прогу, которая при запуске перемещает все ближайшие окна (виндовые), как закончим писать выложим код...