Проект "Перевод" в Lazarus
презентация к уроку (информатика и икт, 10 класс) на тему

Проект «Перевод»
*
Проект «Перевод»
Создадим проект, в котором будем динамически менять свойства компонентов, а также посмотрим последовательность действий для разработки обработчика событий.
Поместить на форму три компонента Tlabel: Label1 в центре формы. Свойство Caption оставить без изменения;Label2 в правом верхнем углу формы. Свойство Caption изменить на "English";Label3 разместить на компонент Label2. Свойство Caption изменить на "Русский".
Для Form1 создать событие OnCreate. В обработчике события введите код:
Проект «Перевод»
procedure TForm1.FormCreate(Sender: Tobject);beginLabel1.Caption:= 'Привет, Мир!';Label2.Visible:= true;Label3.Visible:= false;end;
Определяет видимость компонента во время выполнения приложения
Проект «Перевод»
Для Label2 создайте событие OnClick. В обработчике события введите код:
procedure TForm1.Label2Click(Sender: Tobject); begin Label2.Visible:= false; Label3.Visible:= true; Label1.Caption:= 'Hello, World!'; end;
Для Label3 создайте событие OnClick. В обработчике события введите код:
Проект «Перевод»
procedure TForm1.Label3Click(Sender: Tobject);beginLabel2.Visible:= true;Label3.Visible:= false;Label1.Caption:= 'Привет, Мир!';end;
Проект «Перевод»
Поместить на форму в правый нижний угол компонент TBitBtn. Изменить вид с помощью свойства Kind.
Запустить проект.