|
#1
|
||||
|
||||
Ограничение
Здравствейте ,добрый вечер помогите мне решить такую проблему :
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; вот этот код изменяет положение формы на экране ,а как сделать ограничения что бы форма не вылетала за пределы выдимости ? |
#2
|
||||
|
||||
Вот так:
Код:
Form1.Left:=Random(Screen.WorkAreaWidth-Form1.Width+1); Form1.Top:=Random(Screen.WorkAreaHeight-Form1.Height+1); Велик и могуч наш Object Pascal ! ICQ: 357-591-887 |
#3
|
||||
|
||||
вот спасибо выручил
|