Здесь будет много вопросов

[Kashp]

Что-то я не подумал... , надо было сразу так тему назвать, а не флудить новыми Ну ладно, перейду к делу, имеется код:

Procedure TForml.MyFirstButtonMouseMove(Sende r: TObject;
Shift: TShiftState; X, Y: Integer);
var
index:integer;
begin
index:=random(4) ;
case index of
0: Button.Left:=Button.Left+Button.Wid th;
1: Button.Left:=Button.Left-Button.Width;
2: Button.Top:=Button.Top+Button.Heigh t;
3: Button.Top:=Button.Top-Button.Height;
end;
if Button.Left<0 then
Button.Left:=0;

if (Button.Left+Button. Width) > Form1. Width then
Button.Left : =Form1.Width-Button.Width;
if Button.Top<0 then
Button.Top: =0 ;
if (Button.Top+Button.Height )> Form1.Height then
Button.Top := Form1. Height - Button.Height ;
end;

Это получается, что когда к кнопке подводишь мышку, то кнопка убегает. Вот подскажите начинающему, как сделать, чтобы та кнопка (точнее сама форма размером с кнопку) убегала от мышки не в пределах самой формы, а бегала по рабочему столу?

Надеюсь, я понятно спросил
Заранее благодарен!

[ZhekON]

если я правильно понял, то тебе нужно пользоватся Screen'ом и координатами формы.

[Kashp]

Сообщение от ZhekON

если я правильно понял, то тебе нужно пользоватся Screen'ом и координатами формы.

Да, я пробовал со Screen'ом, но, компилятор ругается. Я что-то не так делаю

[ZhekON]

скинь код со Screen'ом. там посмотрим что ты не так делаеш

[Kashp]

Сообщение от ZhekON

скинь код со Screen'ом. там посмотрим что ты не так делаеш

Посидел ща, подумал, написал так:

procedure TForm1.FormShow(Sender: TObject);
begin
//Делаю размер формы равный размеру кнопки
Width:=75;
Height:=25;
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
index: integer;
begin
index:=random(4) ;
case index of
0: Form1.Left:=Form1.Left+Form1.Width;
1: Form1.Left:=Form1.Left-Form1.Width;
2: Form1.Top:=Form1.Top+Form1.Height;
3: Form1.Top:=Form1.Top-Form1.Height;

if Form1.Left<Screen.Width then
Form1.Left:=Screen.Left;
if (Form1.Left+Form1.Width) > Screen.Width then
Form1.Left:=Screen.Width-Form1.Width;

if Form1.Top<0 then
Form1.Top:=0;
if (Form1.Top+Form1.Height )>Screen.Height then
Form1.Top:=Screen.Height-Form1.Height;
end;

end.

не работает

[_SERGEYX_]

var index1,index2: integer;
begin
index1:=random(Screen.Width) ;
index2:=random(Screen.Height) ;
frmMain.Left:=index1;
frmMain.Top:=index2;
end;

... но так неинтересно. Лучше, если кнопка убегает на
Button1.Left:= Button1.Left+Button1.Width... т.е потихоньку от мышки...
...и лучше бы занялся более серьезным делом

[Kashp]

Сообщение от _SERGEYX_

var index1,index2: integer;
begin
index1:=random(Screen.Width) ;
index2:=random(Screen.Height) ;
frmMain.Left:=index1;
frmMain.Top:=index2;
end;

... но так неинтересно. Лучше, если кнопка убегает на
Button1.Left:= Button1.Left+Button1.Width... т.е потихоньку от мышки...
...и лучше бы занялся более серьезным делом

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

[Alex21]

Сообщение от Kashp

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

Все с точностью до наоборот!
Основы понять надо, но книги, форумы и справки - должны стать вашими молебниками. Всех процедур/функций помнить невозможно, а если знать где и что искать, то проблем не возникнет.

[_SERGEYX_]

Основы понять надо, но книги

Точно. Готов подписаться под этими словами... именно это я сейчас сыну-"квакеру" и "анрилеру" объясняю...

[Kashp]

Да уж, чую, что вы правы Ну чтож, буду учиться.
Решил сделать "серьезную" программу и тут же возникли вопросы :
1) Как запретить изменение размеров формы за уголки?
2) Как сделать, чтобы кнопка закрытия (ну крестик вверху справа у программ) была видна,но чтобы она была недоступна?

P.S. Простите меня, если это смешные ламерские вопросы, но я вот сейчас искал, но ответа не нашел