от Alar
Потёр ссылки. Ссылка на либу, которая перенесена с delphiworld ссылку на delphiworld не потёр бы. Вот код.
Перед появлением главного окна во всех серьёзных приложениях сначала появляется заставка. Теперь и у Вас есть возможность повыёживаться! Для создания заставки выполняем следующую последовательность действий:
Начинаем создание нового приложение командой “New Application” (“Новое приложение”) из меню “File” (“Файл”)
Добавьте ещё одну форму: “New Form”(“Новая форма”) из меню “File” (“Файл”). Это окно и будет заставкой. У него нужно убрать рамку с полосой заголовка, установив свойство “BorderStyle” в “bsNone”. Теперь можно смело разработать дизайн окна заставки.
Из меню “Project” (“Проект”) выбрать команду “Options”(“Опции”). Зайти на закладку “Forms”(“Формы”) и Form2 из списка автоматически создаваемых форм (Auto-Create forms) перенести в список доступных форм (Available forms)
На форму-заставку с закладки System вынести компонент Timer. В его свойстве Interval установить значение 5000, а в событии OnTimer написать:
Delphi создание приложения
Timer1.Enabled := false;
Это сделано для того, чтобы заставка была видна в период указанного времени – 5000 миллисекунд, т.е. 5 секунд.
Перейти в файл проекта, нажав Ctrl+F12 и выбрав Project1. Исходный код должен выглядеть так:
program Project1; uses Forms, Unit1 in ‘Unit1.pas’ , Unit2 in ‘Unit2.pas’ ; begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. Теперь мы внесём сюда немного изменений и код должен стать таким: program Project1; uses Forms, Unit1 in ‘Unit1.pas’ , Unit2 in ‘Unit2.pas’ ; begin Application.Initialize; Form2 := TForm2.Create(Application); Form2.Show; Form2.Update; while Form2.Timer1.Enabled do Application.ProcessMessages; Application.CreateForm(TForm1, Form1); Form2.Hide; Form2.Free; Application.Run; end.
Последний раз редактировалось zetrix; 30.09.2007 в 10:18 . Причина: чуть подправил, а то сообщение «разъехалось»
Источник: www.programmersforum.ru
Иллюстрированный самоучитель по Delphi 7 для начинающих
Программа, работающая на компьютере, нередко отождествляется с самим компьютером, т. к. человек, использующий программу, «вводит в компьютер» исходные данные, как правило, при помощи клавиатуры, а компьютер «выдает результат» на экран, на принтер или в файл.
Алгоритм и программа
На первом этапе создания программы программист должен определить последовательность действий, которые необходимо выполнить, чтобы решить поставленную задачу, т. е. разработать алгоритм. Алгоритм – это точное предписание, определяющее процесс перехода от исходных данных к результату.
Компиляция
Программа, представленная в виде инструкций языка программирования, называется исходной программой. Она состоит из инструкций, понятных человеку, но не понятных процессору компьютера. Чтобы процессор смог выполнить работу в соответствии с инструкциями исходной программы, исходная программа должна быть переведена на машинный язык – язык команд процессора.
Видеоурок по Delphi 7 — простейшая программа
Язык программирования Delphi. Типы данных.
В среде программирования Delphi для записи программ используется язык программирования Delphi. Программа на Delphi представляет собой последовательность инструкций, которые довольно часто называют операторами. Одна инструкция от другой отделяется точкой с запятой.
Переменная
Переменная – это область памяти, в которой находятся данные, которыми оперирует программа. Когда программа манипулирует с данными, она, фактически, оперирует содержимым ячеек памяти, т. е. переменными.
Константы
В языке Delphi существует два вида констант: обычные и именованные. | Обычная константа – это целое или дробное число, строка символов или отдельный символ, логическое значение. | Числовые константы | В тексте программы числовые константы записываются обычным образом, т. е.
Инструкция присваивания. Выражение.
Инструкция присваивания является основной вычислительной инструкцией. Если в программе надо выполнить вычисление, то нужно использовать инструкцию присваивания. | В результате выполнения инструкции присваивания значение переменной меняется, ей присваивается значение.
Тип выражения. Выполнение инструкции присваивания.
Тип выражения определяется типом операндов, входящих в выражение, и зависит от операций, выполняемых над ними. Например, если оба операнда, над которыми выполняется операция сложения, целые, то очевидно, что результат тоже является целым.
Стандартные функции. Математические функции.
Для выполнения часто встречающихся вычислений и преобразований язык Delphi предоставляет программисту ряд стандартных функций. | Значение функции связано с ее именем. Поэтому функцию можно использовать в качестве операнда выражения, например в инструкции присваивания.
Функции преобразования. Использование функций.
Функции преобразования (табл. 1.7) наиболее часто используются в инструкциях, обеспечивающих ввод и вывод информации. Например, для того чтобы вывести в поле вывода (компонент Label) диалогового окна значение переменной типа real, необходимо преобразовать число в строку символов, изображающую данное число.
Ввод данных
Наиболее просто программа может получить исходные данные из окна ввода или из поля редактирования (компонент Edit). | Ввод из окна ввода | Окно ввода – это стандартное диалоговое окно, которое появляется на экране в результате вызова функции inputBox.
Вывод результатов. Вывод в окно сообщения.
Наиболее просто программа может вывести результат своей работы в окно сообщения или в поле вывода (компонент Label) диалогового окна. | Окна сообщений используются для привлечения внимания пользователя.
Вывод в поле диалогового окна
Часть диалогового окна, предназначенная для вывода информации, называется полем вывода, или полем метки. Поле вывода – это компонент Label. | Содержимое поля вывода определяется значением свойства Caption.
Процедуры и функции. Структура процедуры.
При программировании в Delphi работа программиста заключается в основном в разработке процедур (подпрограмм) обработки событий. | При возникновении события автоматически запускается процедура обработки события, которую и должен написать программист.
Структура функции
Функция начинается с заголовка, за которым следуют разделы объявления констант, типов и переменных, а также раздел инструкций. | Объявление функции в общем виде выглядит следующим образом: | function Имя (СписокПараметров): Тип;
Запись инструкций программы
Одну инструкцию от другой отделяют точкой с запятой или, другими словами, в конце каждой инструкции ставят точку с запятой. | Хотя в одной строке программы можно записать несколько инструкций, как правило, каждую инструкцию программы записывают в отдельной строке.
Стиль программирования
Работая над программой, программист, особенно начинающий, должен хорошо представлять, что программа, которую он разрабатывает, предназначена, с одной стороны, для пользователя, с другой – для самого программиста.
Источник: samoychiteli.ru
Ввод и проверка пароля в Delphi 7
Хочу рассказать вам, как поставить пароль на свою программу и так же обо всяких небольших мелочах. Естественно этот способ уже кто то придумывал до меня, но я попытаюсь рассказать об этом вам своими словами и более подробно.
Ввод и проверка пароля в Delphi 7
Для начала создадим две формы. ( File => New => Form)
Положим на Form1 из вкладки Standard:
- Два Label ‘а
- Два Edit ‘а
- Одну Button
В обработчике события Button1 пишем:
procedure TForm1 . Button1Click ( Sender : TObject ) ;
var login , pass : string ; // Пишем название переменных
begin // Начало программы
login : = ‘spy-soft.net’ ; // Присваиваем значение переменной login, значение -spy-soft.net
pass : = ‘12345’ ; // Присваиваем значение переменной pass, значение — 12345
if ( Edit1 . Text = login ) and ( Edit2 . Text = pass ) then Form2 . Show else Form1 . Close // Если(Edit1.Text=переменной login) и (Edit2.Text=переменной pass) значит Форму2.Показать иначе Форму1.Закрыть
end ; // Конец
Все, теперь при запуске программы будет выскакивать окошко просящие у нас логин и пароль, если все введено верно она откроет форму программы, если нет – форма закроется.
Мелочи для тех кто только начинает изучать Delphi 7
Чтобы зафиксировать форму нужно в её свойстве Constraints обозначить максимальную и минимальную ширину и размер формы.
Чтобы при вводе пароля он был скрытен, т.е. вводился звездочками нужно зайти в параметры Edit ‘а текст которого хотите скрыть в PasswordChar и поставить символ которым вводимый текст будет заменяться.
Чтобы поменять шрифт/размер текста нужно зайти в параметры Edit ‘а Font.
Чтобы сделать в программе красивые кнопочки как в Windows, нужно в самом коде программы, после строки (отмечена зеленым) вставить:
Что бы поменять прозрачность формы нужно в настройках формы: AlphaBlend сделать значение true, теперь в AlphaBlendValue поставить прозрачность например 220.
Если вы интересуетесь Delphi, советую скачать Иллюстрированный самоучитель по Delphi
Источник: spy-soft.net