1. Вы находитесь в архивной версии форума xaker.name. Здесь собраны темы с 2007 по 2012 год, большинство инструкций и мануалов уже неактуальны.
    Скрыть объявление

Пишем игру "шутку"

Тема в разделе "Pascal/Delphi", создана пользователем p0wER, 18 июн 2011.

  1. p0wER

    p0wER Новичок

    Регистрация:
    12 фев 2011
    Сообщения:
    102
    Симпатии:
    26
    Баллы:
    0
    Здравствуйте, наверное многие помнят игру где был написан вопрос мол "Довольны ли вы своей зарплатой?" и перед вами было две кнопки "Да" и "Нет", ну и как вы уже вспомнили, когда наводишь курсор на кнопку "Нет", то он таинственным способом убегал от вас.

    Ну что, попробуем написать такую вот штуковину. Погнали

    Создаем новую форму и кидаем на нее следующие компоненты:
    • Label - 1
    • Button - 2

    В caption лабела пишем вопрос и переносим его куда вам угодно. В caption первой кнопки пишем "Да", а у второй кнопки "Нет". Ну думаю вопросов здесь возникнуть не должно. Вот что должно получится:

    [​IMG]

    "А что же дальше?" - спросите вы, да все просто! Тыкаем на кнопку "Нет" и в Object Inspector переходим на вкладку "Events" и там находим "OnMouseMove" и тыкаем на него два раза. И в открывшемся окне, между begin и end, пишем следующее:
    Код:
    Randomize;
    Button2.Left:=random(300)-10;
    Button2.Top:=random(260)-10;
    Кстати, в скобочках нужно написать размер вашей формы, чтобы кнопка не выпрыгивала за ее пределы, а чтобы узнать размер формы достаточно перетащить кнопку в любой угол и возле курсора будет написано то что вам нужно.

    Жмем F9 и пробуем, получилось Радоваться рано, можно же сделать чтобы при нажатии на кнопку "Да" выводилось какое-либо сообщение, например "ха-ха-ха, мы так и знали!", но как же это реализовать? Да очень просто, тыкаем на кнопку "Да" два раза и пишем в открывшемся окне:
    Код:
    MessageBox(0,'Мы так и знали :))','ха-ха :)',0);
    Ну вот и все, теперь жмем F9 и проверяем что же у нас получилось:) Удачи в кодинге:)

    P.S Баян, но все равно решил поделиться с вами :)

    ©p0wER
     
  2. Dr. MefistO

    Dr. MefistO Крывіч Глобальный модератор

    Регистрация:
    3 авг 2008
    Сообщения:
    152
    Симпатии:
    254
    Баллы:
    0
    Баян еще тот, но раз уж написал - пускай будет)
     
  3. ~|~евто|-|

    ~|~евто|-| Silentium ..::V.I.P::..

    Регистрация:
    26 май 2007
    Сообщения:
    30
    Симпатии:
    377
    Баллы:
    0
    Код:
    Button2.Left := Random(Self.Width - Button2.Width);
    Button2.Top := Random(Self.Height - Button2.Height);
     
  4. zapadlo_zapadlov

    zapadlo_zapadlov Продвинутый

    Регистрация:
    18 ноя 2010
    Сообщения:
    9
    Симпатии:
    2
    Баллы:
    0
    Это если я не ошибаюсь первый или второй урок по дэлфи :)
    Дальше будет калькулятор ?
     
  5. p0wER

    p0wER Новичок

    Регистрация:
    12 фев 2011
    Сообщения:
    102
    Симпатии:
    26
    Баллы:
    0
    zapadlo_zapadlov, вы имеете что-то против? Любому начинающему будет неплохо начать с этого.
     
  6. zapadlo_zapadlov

    zapadlo_zapadlov Продвинутый

    Регистрация:
    18 ноя 2010
    Сообщения:
    9
    Симпатии:
    2
    Баллы:
    0
    Я не против я только за - ты бы тогда уже и выложил ссылку на эти уроки.
    Они есть на ру трекере и все кто их смотрел не жалеют зачётные видео уроки получились :)
     
  7. p0wER

    p0wER Новичок

    Регистрация:
    12 фев 2011
    Сообщения:
    102
    Симпатии:
    26
    Баллы:
    0
    zapadlo_zapadlov, ты имеешь виду уроки Антона Макрушина что ли? Там у него было вроде это. Ну держите тогда, отличные уроки - http://rutracker.org/forum/viewtopic.php?t=2829387 :)
     

Поделиться этой страницей