23 липня о 18:00Вебінар: STEM-освіта без гендерних стереотипів – запорука успішного майбутнього школярів

Практична робота в Delphi "Редактор тексту"

Про матеріал

Роздатковий матеріал з об'єктно-зорієнтованого програмування для практичної роботи "Редактор тексту". Практична робота містить опис необхідних компонентів і процедур

Перегляд файлу

Редактор текста

       

 

           Memo1

 

 

             MainMenu1

 

             OpenDialog1

 

             SaveDialog1

 

              FontDialog1                  

 

 

Добавить на форму компоненты MainMenu1, OpenDialog1, SaveDialog1, FontDialog1.


 

Дважды щелкнуть на MainMenu1 и создать главное меню в виде:

 

 

 

 

Для OpenDialog1 и для SaveDialog1 в свойстве Filter указать:


Дописать процедуры:


procedure TForm1.N3Click(Sender: TObject);

begin

  with OpenDialog1 do begin

    if Execute then begin

      Memo1.Lines.LoadFromFile(FileName);

      Form1.Caption:='Проект "Редактор текстов" '+FileName;

    end;

  end;

end;

 

procedure TForm1.N4Click(Sender: TObject);

begin

  with SaveDialog1 do begin

    if Execute then begin

      Memo1.Lines.SaveToFile(FileName);

    end;

  end;

end;

 

 

procedure TForm1.N2Click(Sender: TObject);

begin

  with FontDialog1 do begin

    if Execute then Memo1.Font:=Font;

  end;

end;

doc
Додано
14 листопада 2018
Переглядів
132
Оцінка розробки
Відгуки відсутні
Безкоштовний сертифікат
про публікацію авторської розробки
Щоб отримати, додайте розробку

Додати розробку