Компонент TRadioButton

Пример

Компонента TMemo

Пример3.

Пусть требуется при любом изменении текста в Edit1 сообщать пользователю, что это изменение произошло.

Procedure Tform1.Edit1Change;

begin

Label1.Caption:= ’Произошло изменение текста Edit1’;

end;

Компонент TMemo gредставляет собой редактор текста и предназначен для ввода, редактирования или отображения достаточно длинного текста. Текст хранится в свойстве Lines класса TString и таким образом представляет пронумерованный набор строк (нумерация начинается с нуля).

С помощью свойств и методов (Add, Delete, Clear, Count и т.д.) представляется возможность динамически формировать содержимое компонента. Многие свойства аналогичны свойствам рассмотренного компонента TEdit.

Основные свойства

Allignment – служит для выравнивания текста. Это свойство может принимать такие же значения, как у компонента TEdit.

WordWrap – свойство, которое позволяет управлять переносом слова на новую строку, может принимать булевские значения.

ScrollBars – позволяет устанавливать полосы скроллинга. Может принимать значения:

ssNone – без полос скроллинга,

ssHorizontal – горизонтальная полоса скроллинга,

ssVertical – вертикальная полоса скроллинга,

ssBoth – обе полосы скроллинга.

При этом значение свойства WordWrap игнорируется.

Lines – с помощью этого свойства задается список строк, помещенных в редактор.

Чтобы поместить исходный текст в TMemo на стадии проектирования необходимо в инспекторе объектов выделить свойство Lines и в открывшемся окне диалога ввести соответствующий текст.

Компонент TMemo обрабатывает все события от мыши и клавиатуры, а также реагирует на активизацию компонента и снятию активизации, а также при изменении текста.

Компонент TMemo может также обмениваться информацией с буфером С lipboard. Для этого используются методы:

CopyToClipBoard – копировать в буфер,

CutToClipBoard – вырезать,

PasteToClipBoard – вставить.

Для компонента TMemo может использоваться метод LoadFromFile, с помощью которого можно заполнить поле компонента из текстового файла. Возможна и обратная операция, т.е. можно сохранить содержимое компонента TMemo в файле с помощью метода SaveToFile.

Обработчик кнопки Button1 – Прочитать

If FileExist(Edit1.Text) then

Memo1.Lines.LoadFromFile(Edit1.Text);

Обработчик кнопки Button5 – Сохранить

If Length(Edit2.Text)<>0 then

Memo2.Lines.SaveToFile(Edit2.Text);

Обработчик кнопки Button2 – Копировать

Memo1.CopyToClipboard;

Обработчик кнопки Button4 - Вырезать

Memo2.CutToClipBoard;

Memo2.PastFromClipBoard;

У класса Tstrings имеются такие свойства

Count –целое число, определяющее количество строк,

Strings[Index] – с помощью которого можно получить строку с номером Index (нумерация строк начинается с 0).

Чтобы получить весь текст можно воспользоваться свойством Text. Чтобы обратиться к нулевой строке нужно

Memo1.Lines.Strings[0];

или

Memo1.Lines[0];

У класса TStrings имеются также методы

Add(s) – позволяет добавить строку s в список,

Delete(Index) – удаление строки с номером Index,

Exchange(Index1, Index2) – можно поменять местами две строки,

Index of(s) – позволяет определить номер строки s или -1, если такой нет,

Insert(Index, s) – вставит строку s после номера Index,

Move(CurIndex, NewIndex) - переместить строку СurIndex в строку Newindex.

Дата добавления: 2014-01-07