Ограничение
Здравствейте ,добрый вечер помогите мне решить такую проблему :
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;
вот этот код изменяет положение формы на экране ,а как сделать ограничения что бы форма не вылетала за пределы выдимости ?
|