Как заставить button "убегать" от мышки??

← →
ТехникПТО © (2005-03-03 21:26) [0]

вот такая вот задачка у меня

← →
Anatoly Podgoretsky © (2005-03-03 21:28) [1]

За такую задачку обычно зубы выбивают.
И это против политики данного сайта.

← →
ТехникПТО © (2005-03-03 21:31) [2]

> За такую задачку обычно зубы выбивают.
> И это против политики данного сайта.

???всмысле???

← →
Anatoly Podgoretsky © (2005-03-03 21:41) [3]

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

2. Для хакеров и вирусмейкеров существуют другие сайты, здесь они персона нон грата.

← →
ТехникПТО © (2005-03-03 21:44) [4]

> 1. Вирус, категория западлостроение, иногда опаснее обычного
> вируса, поскольку лечилки нет, знаний пользователя самому
> вручную удалить недостаточно.
>
> 2. Для хакеров и вирусмейкеров существуют другие сайты,
> здесь они персона нон грата.

упс... сорь...

← →
Knight © (2005-03-03 21:51) [5]

А как можно заставить мышку убегать от кошки... :)

← →
Anatoly Podgoretsky © (2005-03-03 21:54) [6]

А вот это уже нормальная программа, это когда букашки бегают по экранчику, будо это недавно популярно, вроде дурь прошла.

← →
Knight © (2005-03-03 22:03) [7]

Не... раньше была такая идея... заменить курсор реальной анимационной мышкой, чтоб бегала по столу, открывала папка, чтобы она начинала норку скоблить (если ничего не делать), мусор из неё выносить, половички хлопать, чтоб при ударе о край экрана у ней птички вокруг головы летали, а если несколько раз подряд стукнуть, то она грозила кулаком и задрав хвостик обижено уходила, обмотав голову полотенцем и оставив записку "Взяла больничный в связи с производственной травмой"... Гы :)

← →
Anatoly Podgoretsky © (2005-03-03 22:14) [8]

И ты Брут

← →
Fenik (2005-03-03 22:23) [9]

Внимание, страшный вирус! :))))))))

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var B: Boolean; P: TPoint; begin repeat Button1.Left := Random(ClientWidth - Button1.Width); Button1.Top := Random(ClientHeight - Button1.Height); GetCursorPos(P); B := not PtInRect(Button1.BoundsRect, ScreenToClient(P)); until B; end;

← →
nes © (2005-03-03 22:28) [10]

Почему сразу западлостроение? может человек сам себя так развлекает=)?...Ставь на button событие OnMouseMove,а дальше новые координаты button`a,можешь сделать, чтоб только в одну сторону двигалось(к button1.left прибавляешь 5 или 10, также с button1.top) и ставишь ограничения насколько далеко кнопка поедет,
Второй вариант:ставишь button1.left, button1.top ...Random сколько те нада...и кнопка гулет, где хочет в этой зоне...

← →
Nes © (2005-03-03 22:29) [11]

Гррр..Пока нашкрябал сообщение, меня уже обогнали...грррр.....

← →
Knight © (2005-03-03 22:39) [12]

А теперь главная фишка... надо использовать не TButton, а TPanel... :)

← →
Knight © (2005-03-03 22:40) [13]

> [8] Anatoly Podgoretsky © (03.03.05 22:14)
> И ты Брут

Эта идея была раньше... щас просто вспомнил... :)

← →
Fenik (2005-03-03 22:42) [14]

>Knight © (03.03.05 22:39) [12]
>А теперь главная фишка... надо использовать не TButton, а TPanel... :)

Ты сначала мышку поймай :)

← →
Fenik (2005-03-03 22:43) [15]

>Fenik (03.03.05 22:42) [14]

Хм.. без клавиатуры :)))))

> Внимание, страшный вирус!

Сейчас удалят модератором и отправят в RO.

> [15] Fenik (03.03.05 22:43)
> Хм.. без клавиатуры :)))))

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

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

> [18] Anatoly Podgoretsky © (03.03.05 22:51)
> Мужики код совсем ни к чему приводить, вы или ваши близкие
> могут оказаться в числе пострадавших.

Если человек дружит с головой (как я :) то ничего страшного тут нет...

← →
Fenik (2005-03-03 23:01) [20]

>Anatoly Podgoretsky © (03.03.05 22:51) [18]

Знание не причиняет вреда само по себе.
Знание ни плохое, ни хорошее. Оно никакое.

Как заставить button "убегать" от мышки?? Найти похожие ветки