СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Скидки до 50 % на комплекты
только до

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

Создание диалогового окна "Приветствие" в приложении "Лазарус"

Категория: Информатика

Нажмите, чтобы узнать подробности

Презентация создана для выполнения практической работы в приложении "Лазарус". В данной работе учащиеся смогут выполняя последовательно задания слайдов, создать диалоговое окно "Приветствие" в котором отрабатываются навыки работы с кнопками TLabel,TButton, TEdit в приложении "Лазарус".

Просмотр содержимого документа
«Создание диалогового окна "Приветствие" в приложении "Лазарус"»

Создание проекта №1 «Привет» Объектно-ориентированное программирование в программной среде «Лазарус»

Создание проекта №1 «Привет»

  • Объектно-ориентированное программирование в программной среде «Лазарус»
Создание проекта «Привет» Задание 1

Создание проекта «Привет»

Задание 1

Проект «Привет»

Проект «Привет»

1. Запустить приложение Лазарус

1. Запустить приложение Лазарус

10. Записать процедуру для кнопки «Привет»: выполнить двойной щелчок по кнопке  В открывшемся окне «Редактора исходного кода» вписать:  procedure TForm1.Button1Click(Sender: TObject);  begin  Label3.Caption:=' Здравствуйте '+ Edit1.Text+' '+Edit2.Text+'!';  end;

10. Записать процедуру для кнопки «Привет»: выполнить двойной щелчок по кнопке В открывшемся окне «Редактора исходного кода» вписать: procedure TForm1.Button1Click(Sender: TObject); begin Label3.Caption:=' Здравствуйте '+ Edit1.Text+' '+Edit2.Text+'!'; end;

11.Записать процедуру для кнопки «Очистить»: выполнить двойной щелчок по кнопке В открывшемся окне «Редактора исходного кода» в Процедуре для кнопки « Button 2» вписать: procedure TForm1.Button2Click(Sender: TObject); begin  Edit1.Text:='';  Edit2.Text:='';  Label3.Caption:='';  end;

11.Записать процедуру для кнопки «Очистить»: выполнить двойной щелчок по кнопке

В открывшемся окне «Редактора исходного кода» в Процедуре для кнопки « Button 2» вписать:

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Label3.Caption:='';

end;

12. Записать процедуру для кнопки «Выход»: выполнить двойной щелчок по кнопке В открывшемся окне «Редактора исходного кода» в Процедуре для кнопки « Button 3» записать команду закрытия окна Close;

12. Записать процедуру для кнопки «Выход»: выполнить двойной щелчок по кнопке

В открывшемся окне «Редактора исходного кода» в Процедуре для кнопки « Button 3» записать команду закрытия окна Close;

13. Сохранить весь проект в папке под своей фамилией на Рабочем столе, выполнив команду «Сохранить все», не меняя имена двух сохраняемых файлов.    Файл

13. Сохранить весь проект в папке под своей фамилией на Рабочем столе, выполнив команду «Сохранить все», не меняя имена двух сохраняемых файлов. Файл

Сохранение  проекта

Сохранение проекта

Выполнение проекта Выполните команду «Запустить»

Выполнение проекта

  • Выполните команду «Запустить»