Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
LAZARUS Основы объектно-ориентированного программирования в среде
Содержание
- 1. LAZARUS Основы объектно-ориентированного программирования в среде
- 2. Повторение Оператор выбора в PascalCase chislo Of 1: write(‘’); 2: write(‘’);…end;
- 3. Повторение Проверка условия в PascalЕСЛИ число
- 4. Сложные условия в в PascalIf (a=1) AND (b=1) Then …If (a=1) OR (b=1) Then …
- 5. Несколько форм в Lazarus Файл –
- 6. Несколько форм в LazarusUses Unit2;
- 7. Несколько форм в Lazarusprocedure TForm1.Button1Click(Sender: TObject);begin Form2.Show; Form1.Hide;end; Form2.ShowModal;
- 8. Несколько форм в Lazarus Настроить свойства
- 9. Несколько форм в Lazarusprocedure TForm1.Button2Click(Sender: TObject);begin Form1.Close;
- 10. Компонент RadioGroup в LazarusНа Form2 добавить RadioGroupИзменить его свойство CaptionИзменить его свойство Items
- 11. Компонент RadioGroup в LazarusНа Form2 добавить кнопку «Применить»
- 12. Компонент RadioGroup в LazarusЗапрограммируем кнопку «Применить»procedure TForm2.Button1Click(Sender: TObject);begin if RadioGroup1.ItemIndex=0 then Form1.Color:=clred;end; Свойство ItemIndex
- 13. Компонент RadioGroup в LazarusОкрашиваем обе формыprocedure TForm2.Button1Click(Sender:
- 14. Скачать презентанцию
Повторение Оператор выбора в PascalCase chislo Of 1: write(‘’); 2: write(‘’);…end;
Слайды и текст этой презентации
Слайд 3Повторение
Проверка условия в Pascal
ЕСЛИ число = 1 ТОГДА
печатай «Орел»
ИНАЧЕ печатай «Решка»;If chislo = 1 Then write (‘Орел’)
Else write (‘Решка’);
Слайд 5Несколько форм в Lazarus
Файл – Создать форму
Проект – Формы
Сохранить проект в отдельную папку!!!!
Слайд 7Несколько форм в Lazarus
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Form1.Hide;
end;
Form2.ShowModal;
Слайд 8Несколько форм в Lazarus
Настроить свойства форм:
Caption для Form1
– Главная
Caption для Form2 – Опции
Изменить название кнопки:
Caption
для Button1 – Опции
Слайд 9Несколько форм в Lazarus
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
Form2.Close;
end;
Изменить
Form1, добавив еще одну кнопку «Закрыть»
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;
Слайд 10Компонент RadioGroup в Lazarus
На Form2 добавить RadioGroup
Изменить его свойство Caption
Изменить
его свойство Items
Слайд 12Компонент RadioGroup в Lazarus
Запрограммируем кнопку «Применить»
procedure TForm2.Button1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0
then
Form1.Color:=clred;
end;
Свойство ItemIndex
Слайд 13Компонент RadioGroup в Lazarus
Окрашиваем обе формы
procedure TForm2.Button1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0
then
Form2.Color:=clred;
if radiogroup1.ItemIndex=0 then
Form1.Color:=clred;
end;
