Дурилка картонная...

Трёп, флуд, флейм здесь. Реклама, спам и пропаганда наркотиков НЕ приветствуются.
Аватара пользователя
Yuriy
Сообщения: 139
Зарегистрирован: 11 фев 2018, 13:34
Откуда: Киев

Дурилка картонная...

Сообщение Yuriy » 02 июн 2018, 16:37

Последний раз редактировалось Yuriy 23 июн 2018, 13:51, всего редактировалось 1 раз.

Аватара пользователя
Владимир
Администратор
Сообщения: 687
Зарегистрирован: 10 фев 2018, 18:27
Откуда: Белгород
Контактная информация:

Re: 404 - Not Found

Сообщение Владимир » 02 июн 2018, 17:03

Ниче так кнопочка... Надо будет ее сюда забрать, если никто не будет против.

Аватара пользователя
Владимир
Администратор
Сообщения: 687
Зарегистрирован: 10 фев 2018, 18:27
Откуда: Белгород
Контактная информация:

Re: 404 - Not Found

Сообщение Владимир » 22 июн 2018, 20:35


Аватара пользователя
Yuriy
Сообщения: 139
Зарегистрирован: 11 фев 2018, 13:34
Откуда: Киев

Re: 404 - Not Found

Сообщение Yuriy » 23 июн 2018, 12:25

Едем дальше.png
Едем дальше.png (487.52 КБ) 1622 просмотра
javascriptПоказать
http://scriptozna.ucoz.ru/load/ubegajus ... 49-1-0-310
<SPAN id="button1" style="position:relative;z-index:10" onmouseOver="moveIt();" onfocus="moveIt();this.blur();">
<button style="background-color:lightgreen;height:30px; width:150px;" onmouseDown="moveIt();" onmouseover="moveIt();" onfocus="moveIt();this.blur();">Получить БОНУС</button>
</SPAN>
<center>

<script>
function getObj(objID)
{
if (document.getElementById) {
return document.getElementById(objID);}
else if (document.all) {
return document.all[objID];}
else if (document.layers) {
return document.layers[objID];}
}

var ie4=document.all;
var ns6=document.getElementById&&!document.all;
cobj=getObj("button1");

function moveIt(){
y=Math.floor(Math.random()*301);
x=Math.floor(Math.random()*401);
if (ie4){
cobj.style.top = y;
cobj.style.left = x;
}
else if (ns6){
cobj.style.top = y+"px";
cobj.style.left = x+"px";
}
}
</script>

</center>
хз какой скрипт, но возможно кто-то переделает под RemObject Pas…Показать

Код: Выделить всё

procedure TForm3.Button1Click(Sender: TObject);
begin
Button1.Left := Random (ClientWidth - Button1.Width);
Button1.Top := Random (ClientHeight - Button1.Height);
end;
:jackinabox:

Аватара пользователя
Владимир
Администратор
Сообщения: 687
Зарегистрирован: 10 фев 2018, 18:27
Откуда: Белгород
Контактная информация:

Re: 404 - Not Found

Сообщение Владимир » 23 июн 2018, 12:44

Надо его в Form_Create воткнуть (Button1.OnMouseEnter и Button1.OnSetFocus)

P.S. ie4 - это уже что-то и юрского периода...

Аватара пользователя
Yuriy
Сообщения: 139
Зарегистрирован: 11 фев 2018, 13:34
Откуда: Киев

Re: Дурилка картонная...

Сообщение Yuriy » 23 июн 2018, 13:50

Работает. На OnSetFocus ругается.

Код: Выделить всё

procedure Button1Click(Sender: TObject);
begin
dxButton1.Left := Random (1100 - dxButton1.Width);
dxButton1.Top := Random (600 - dxButton1.Height);
end;
procedure Form_Create;
begin
   dxButton1.OnMouseEnter:=@Button1Click;
end;  
HZ_BUTTON.zip
(43.71 КБ) 116 скачиваний

Аватара пользователя
Владимир
Администратор
Сообщения: 687
Зарегистрирован: 10 фев 2018, 18:27
Откуда: Белгород
Контактная информация:

Re: Дурилка картонная...

Сообщение Владимир » 23 июн 2018, 13:55

OnEnter попробуйте... Или оставьте OnClick

Отправлено спустя 11 минут 28 секунд:
Можно все-таки через попыток 500-600 сделать какой-нибудь бонус (должен же пользователь как-то быть вознагражден за старания).

Аватара пользователя
Yuriy
Сообщения: 139
Зарегистрирован: 11 фев 2018, 13:34
Откуда: Киев

Re: Дурилка картонная...

Сообщение Yuriy » 23 июн 2018, 14:17

Не на .OnMouseEnter прикольнее. Любому менеджеру работы на день хватит.
:tea_ready:
HZ_BUTTON_new.zip
(44.04 КБ) 108 скачиваний
Если кнопки под шары заделать а курсор под кий, то совсем праздник "День труда" получится.

Аватара пользователя
Владимир
Администратор
Сообщения: 687
Зарегистрирован: 10 фев 2018, 18:27
Откуда: Белгород
Контактная информация:

Re: Дурилка картонная...

Сообщение Владимир » 23 июн 2018, 14:47

Если только OnMouseEnter, то есть шанс преждевременного "получения бонуса" по Tab и Enter.

Аватара пользователя
Yuriy
Сообщения: 139
Зарегистрирован: 11 фев 2018, 13:34
Откуда: Киев

Re: Дурилка картонная...

Сообщение Yuriy » 23 июн 2018, 15:00

Добавил муху.
:jester:
HZ_BUTTON_fly.zip
(675.4 КБ) 108 скачиваний

Ответить