Вторник, 21.11.2017, 05:26

Кибер-Сайт

Приветствую Вас Гость | RSS
Меню сайта
Наши реквизиты
Считаете полезными материалы нашего сайта?
Хотите и можете помочь проекту?
Z222164825293
Категории
Delphi [8]
Delphi, Object Pascal, уроки, статьи, исходники
OpenGL API [9]
Графика на OpenGL API, уроки, статьи, исходники
Blender [9]
Трехмерная графика, моделирование, разработка игр с помощью Blender
3D. Общие вопросы [1]
Наш опрос
Оцените мой сайт
Всего ответов: 91
Статистика
Ваш IP: 54.224.18.114
Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа
Главная » 2013 » Апрель » 2 » Начало работы с Delphi. Первый проект. Урок-4
23:12

Начало работы с Delphi. Первый проект. Урок-4

Для того чтобы лучше понять принципы построения приложений в Делфи создадим несложный проект. Сразу замечу, что решать какие-то сложные задачи пример не будет, но поможет научиться создавать приложения из стандартных компонентов.

Создание окна с элементами управления

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

Выбор компонентов для приложения

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

Окно будущего приложения

На рисунке мы видим вариант расположения компонентов в окне будущего приложения. Отрегулируйте положение и размеры всех компонентов с помощью мыши или измените их свойства (Left, Top, Width и Height) в объектном инспекторе (Object Inspector).

Для изменения свойств компонентов с помощью "Объектного инспектора" нужные компоненты можно выбрать: на форме, в выпадающем списке Объектного инспектора или же в окне TreeView среды разработки. Выберите любой компонент одним из способов, перечисленных выше и перейдите в Object Inspector. На вкладке Properties найдите свойства Left, Top, Width и Height и введите значения с цифровой клавиатуры, не забудьте, после ввода, подтвердить изменения нажатием Enter.

Теперь, когда все элементы управления на своих местах давайте изменим остальные их свойства. Выберите в TreeView окно будущего приложения Form1 и измените в "Инспекторе объектов" свойство Caption на Закон Ома для участка цепи (это будет название нашего приложения, которое появится в заголовке окна). Теперь изменим свойство BorderStyle формы с bsSizeable на bsDialog (это позволит всегда сохранять фиксированный размер окна, как в некоторых стандартных диалогах Windows). Введите в свойства Caption компонентов Label1, Label2, Button1, Button2 и Button3, следующие строки: «Напряжение», «Ток», «Вычислить», «Очистить», «Выход». В Edit1 в Edit2 измените свойство Text на 220 и 5, соответственно. Очистите свойство Lines компонента Memo1 (оно должно быть пустым). В результате, у вас должно получиться следующее.


Окно приложения с измененными свойствами компонентов

Написание кода приложения. Обработка событий

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

Начнем с создания обработчиков событий. Для этого переходим в окно Объектного инспектора и выбираем вкладку Events (события), выделяем Button1 и щелкаем мышью два раза напротив OnClick. В результате, в редакторе кода появится обработчик, выполненный в виде процедуры класса формы приложения (TForm1).

procedure TForm1.Button1Click(Sender: TObject);

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

// Обрабатываем нажатие кнопки "Вычислить"
procedure TForm1.Button1Click(Sender: TObject);
var
  U: Real; // Напряжение
  I: Real; // Ток
  R: Real; // Сопротивление
begin
// Преобразуем строки в числа с плавоющей точкой
  U := StrToFloatDef(Edit1.Text, 0);
  I := StrToFloatDef(Edit2.Text, 0);
  if I > 0 then // Если I > 0, не делаем ничего
  begin
    R := U/I; // Получаем сопротивление
    Memo1.Lines.Add(FloatToStr(R)); // Выводим результат в Мемо
  end;
end;

// Обрабатываем нажатие кнопки "Очистить"
procedure TForm1.Button2Click(Sender: TObject);
begin
  if Memo1.Lines.Count > 0 then // Если в Мемо есть строки, удаляем их
  Memo1.Lines.Clear;
end;

// Обрабатываем нажатие кнопки "Выход"
procedure TForm1.Button3Click(Sender: TObject);
begin
  Form1.Close; // Закрываем окно приложения
end;

Теперь сохраняем наш проект с помощью пункта Save Project As главного меню.

Сохранение проекта прилжения

Проверяем ошибки (Ctr + F9). Если ошибок нет, включаем компиляцию с помощью клавиши F9. Теперь можно поиграть с программой и посмотреть на результат её работы. После компиляции в папке с сохраненным проектом появился файл с расширением Project1.exe, который является результатом работы компилятора.


Скачать исходники
Категория: Delphi | Просмотров: 1099 | Добавил: Admin | Рейтинг: 0.0/0

Похожие материалы
Всего комментариев: 0
Имя *:
Email *:
Код *:
Поиск
Календарь
«  Апрель 2013  »
ПнВтСрЧтПтСбВс
1234567
891011121314
15161718192021
22232425262728
2930
Друзья сайта
  • Скачать Blender
  • Архив записей
    Реклама
    Copyright Кибер-Сайт © 2017 | Используются технологии uCoz