Пример Memo в Delphi

Данный пример будет реализован Memo и его свойств относительно шрифта. При выборе стиля и размера шрифта, в поле Memo, написанный некоторый отрывок текста будет меняться.

memo

Собственно создаем новый проект и сохраним его. Для нашей основной формы сразу напишем название в свойстве Caption – Работа с текстом. Форма у меня получилась размером 382 на 582 – это впрочем, не так уж важно. Для стиля нам потребуется 3 компонента CheckBox, а для самого шрифта 3 переключателя RadioButton. Так же для размера шрифта я использовал StaticText1 внизу, Label1 с текстом в Caption – Размер шрифта и Edit1 для его изменения. Соответственно у CheckBox-ов меняем названия (Caption) : жирный, курсив и подчеркнутый, а для RadioButton – Times NewRoman, Arial и Courier. Собственно сам компонент Memo – назовем его MyMemo в поле Name. Все, на этом этапе уже можно начать программирование.

memo

Итак, при активации или запуске нашей формы в Events событии формы OnCreate:

MyMemo.Text:=»;

StaticText1.Caption:= Введите размер: ‘ + IntToStr(MyMemo.Font.Size);

Edit1.Text:= IntToStr(MyMemo.Font.Size);

очищаем MyMemo, в StaticText1 записываем текущее значение размера шрифта MyMemo.Font.Size и в Edit1 (однострочное окно редактирование) передаем размер шрифта, путем преобразования этой переменной в строковый тип. Вы можете купить лицензионный софт на сайте softlist.com.ua/catalog/multimedia/category-video по оптимальной цене. Используя лицензионные мультимедийные проигрыватели видео и аудио, работа за компьютером будет комфортной и простой.

Чтобы напрямую текст менялся на жирный, в событии (OnClick) первого индикатора CheckBox1 запишем проверку if-else:

if CheckBox1.Checked then

MyMemo.Font.Style:= MyMemo.Font.Style + [fsBold]

else

MyMemo.Font.Style:= MyMemo.Font.Style — [fsBold];

Данные свойства стиля текста Вы можете увидеть на вкладке Properties инспектора Object Inspector при выделенном MyMemo. Получается добавление свойства fsBold (текст является жирным). Для курсива (CheckBox2) соответственно fsItalic и для подчеркнутого (CheckBox3) – fsUnderline.

Переключатели, которые будут задавать сам шрифт то же в Событии (OnClick):

MyMemo.Font.Name := ‘Times New Roman'; // для RadioButton1

MyMemo.Font.Name := ‘Arial'; // для RadioButton2

MyMemo.Font.Name := ‘Courier'; // для RadioButton3

Остается дописать для Edit1 (окно редактирования размера) в событии (Events) OnChange следующее:

MyMemo.Font.Size:= StrToInt (Edit1.Text);

StaticText1.Caption:= ‘Размер шрифта: ‘ + IntToStr(MyMemo.Font.Size);

Вот, кажется все. Сохраняем и запускаем. Проверяем, что все работает. Есть только один недостаток – размерность шрифта может быть только целым числом. У Вас есть идеи по этому поводу?

. delphi memo пример
. delphi memo пример
Комментирование и размещение ссылок запрещено.