Проект «Перевод» 08.03.2014. Проект «Перевод» Создадим проект, в котором будем динамически менять свойства компонентов, а также посмотрим последовательность. - презентация

1 Проект «Перевод»

2 Проект «Перевод» Создадим проект, в котором будем динамически менять свойства компонентов, а также посмотрим последовательность действий для разработки обработчика событий. Поместить на форму три компонента Tlabel : Label1 в центре формы. Свойство Caption оставить без изменения; Label2 в правом верхнем углу формы. Свойство Caption изменить на "English"; Label3 разместить на компонент Label2. Свойство Caption изменить на "Русский".

3 2.Для Form1 создать событие OnCreate. В обработчике события введите код: Проект «Перевод» procedure TForm1.FormCreate(Sender: Tobject); begin Label1.Caption := 'Привет, Мир!'; Label2.Visible := true ; Label3.Visible := false ; end ; Определяет видимость компонента во время выполнения приложения

4 Проект «Перевод» 3.Для Label2 создайте событие OnClick. В обработчике события введите код: procedure TForm1.Label2Click(Sender: Tobject); begin Label2.Visible := false ; Label3.Visible := true ; Label1.Caption := 'Hello, World!'; end ;

5 4.Для Label3 создайте событие OnClick. В обработчике события введите код: Проект «Перевод» procedure TForm1.Label3Click(Sender: Tobject); begin Label2.Visible := true ; Label3.Visible := false ; Label1.Caption := 'Привет, Мир!'; end ;

6 Проект «Перевод» 5.Поместить на форму в правый нижний угол компонент TBitBtn. Изменить вид с помощью свойства Kind. 6.Запустить проект.