[Sharky]

Здравствейте ,добрый вечер помогите мне решить такую проблему :

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

вот этот код изменяет положение формы на экране ,а как сделать ограничения что бы форма не вылетала за пределы выдимости ?

[Rokuell]

Вот так:

Код:

Form1.Left:=Random(Screen.WorkAreaWidth-Form1.Width+1);
Form1.Top:=Random(Screen.WorkAreaHeight-Form1.Height+1);

[Sharky]

вот спасибо выручил