ShopWorld
Вернуться ShopWorld > Статьи и обсуждение > Программирование > С/С++, C#, Delphi, .NET, Asm
 
« Брутфорс на Delphi | Следующей темы нет »

Ответ
 
Опции темы Опции просмотра
 
Старый 18.07.2012, 10:00   #1
-NegaTiV-
Проверяющий
 
Аватар для -NegaTiV-
 
Регистрация: 14.03.2012
Адрес: 666
Сообщений: 597

Сказали спасибо: 196

3223222

Важно создание заставки при старте программы?легко!

Перед появлением главного окна во всех серьёзных приложениях сначала появляется заставка. Теперь и у Вас есть возможность повыёживаться! Для создания заставки выполняем следующую последовательность действий:

Начинаем создание нового приложение командой "New Application" ("Новое приложение") из меню "File" ("Файл")

Добавьте ещё одну форму: "New Form"("Новая форма") из меню "File" ("Файл"). Это окно и будет заставкой. У него нужно убрать рамку с полосой заголовка, установив свойство "BorderStyle" в "bsNone". Теперь можно смело разработать дизайн окна заставки.

Из меню "Project" ("Проект") выбрать команду "Options"("Опции"). Зайти на закладку "Forms"("Формы") и Form2 из списка автоматически создаваемых форм (Auto-Create forms) перенести в список доступных форм (Available forms)

На форму-заставку с закладки System вынести компонент Timer. В его свойстве Interval установить значение 5000, а в событии OnTimer написать:

Timer1.Enabled := false;

Это сделано для того, чтобы заставка была видна в период указанного времени – 5000 миллисекунд, т.е. 5 секунд.

Перейти в файл проекта, нажав Ctrl+F12 и выбрав Project1. Исходный код должен выглядеть так:
Код:

Вы должны 'сказать спасибо', чтобы увидеть скрытый текст содержащейся здесь.
У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.


Теперь мы внесём сюда немного изменений и код должен стать таким:

Вы должны 'сказать спасибо', чтобы увидеть скрытый текст содержащейся здесь.
У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.





Код:
Sokol
__________________
[Ссылки могут видеть только зарегистрированные пользователи. ]
-NegaTiV- вне форума  
Сказали 'Спасибо' за это сообщение.
Ответить с цитированием
Сказали спасибо:
PainNiga (06.10.2014) , Татьяна94 (01.12.2013) , Михалыч (15.12.2012)
Внимание посетители ShopWorld.biz
                                       У нас проводится Набор модераторов.
                                       Правила раздела: Покупка / Продажа / Обмен / Услуги
                                       Проверка ваших тем администрацией.(Раздел "Торговля")
                                       Пожелания по работе форума и Реклама на форуме.
                                       Советуем заглянуть вам в раздел Торговля и Статьи и обсуждение или World navigation
                                       Для связи с администрацией пишите в icq: 6506666 или в ЛС.
                                       Администрация не несет ответственности за причиненный вред пользователям и от других пользователей(пользуйтесь гарантом),
                                       Все материалы размещенные на сайте предоставленны в ознакомительных целях.
                                       Ап темы в разделе Покупка / Продажа / Обмен / Услуги раз в 5 дней, как апать тему читаем тут.
Старый 28.10.2013, 22:21   #2
Serge1991
Посетитель
 
Аватар для Serge1991
 
Регистрация: 28.10.2013
Сообщений: 1

Сказали спасибо: 0
спасибо
Serge1991 вне форума  
Сказали 'Спасибо' за это сообщение.
Ответить с цитированием
Старый 06.10.2014, 15:23   #3
PainNiga
Посетитель
 
Аватар для PainNiga
 
Регистрация: 06.10.2014
Сообщений: 5

Сказали спасибо: 1
спс
PainNiga вне форума  
Сказали 'Спасибо' за это сообщение.
Ответить с цитированием
Старый 09.08.2019, 13:38   #4
KrasnowekP
Посетитель
 
Аватар для KrasnowekP
 
Регистрация: 04.08.2019
Адрес: Russia
Сообщений: 3

Сказали спасибо: 1
Отправить сообщение для KrasnowekP с помощью AIM Отправить сообщение для KrasnowekP с помощью Yahoo Отправить сообщение для KrasnowekP с помощью Skype™
создание заставки при старте программы легко

BeginUpdate;
//.........
EndUpdate;
это применимо только к некоторым компонетнам но не форме

я уже пол дня бьюсь над этим и нчиего толкового не выходит

меня ставит в тупик что в АСМ код немогу запихать код на паскале/дельфи



скорее всего придется отказаться от прогрессбара
и во время работы приложение будет казаться зависшим,
а это не есть хорошо
даже файлы больше 100мб шифруются секунд 7
пробовал шифрануть файл 4.3 гб так ваще минуты две висело так еще и вылезло системного сообщение что необходимо увеличить файл подкачки.


просто препод дотошный докопается ведь
поробует большой файл шифрануть а тут косяк такой
KrasnowekP вне форума  
Сказали 'Спасибо' за это сообщение.
Ответить с цитированием
Ответ

« Брутфорс на Delphi | Следующей темы нет »
Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Itunes удаляет программы. .prov1rus Книги для iPad 1 12.07.2019 20:35
Как поднять ТИЦ 10-30 легко? -NegaTiV- Новости SEO 0 09.05.2012 10:58
Пишем программы на заказ specforce Soft на заказ 0 23.02.2012 22:26
Как установить программы на iPad. †SHYLLER†™ iPad инструкции 0 03.10.2011 18:15
Как скачивать игры и программы через наш сайт? †SHYLLER†™ iPad инструкции 0 27.09.2011 18:28


Текущее время: 12:28. Часовой пояс GMT +5.

Powered by vBulletin® Version 3
Copyright ©2000 - 2019, vBulletin Solutions Inc.
Автор ShopWorld: †SHYLLER†
Яндекс.Метрика