Вопросы и Ответы
15. Возможно ли в компоненте TMemo отменить неверно произведенные действия при редактировании текста?
В компоненте TMemo предусмотрена возможность отмены неверных действий при редактировании. Для этого надо послать сообщение о необходимости произвести отмену действий. Компонент TMemo поддерживает три сообщения:
Сообщение |
Описание |
EM_CANUNDO | Возвращает флаг состояния операции отмены. Если операцию произвести нельзя - возвращается ноль, если можно - значение отлично от нуля. |
EM_UNDO | Производит операцию отмены. |
EM_EMPTYUNDOBUFFER | Обнуляет флаг состояния операции отмены. |
............
{Операция
отмены для компонента Memo1 с проверкой флага
отмены} IF
Memo1.Perform(EM_CANUNDO, 0, 0) <> 0 THEN Memo1.Perform(EM_UNDO,
0, 0); end; ............ {Операция
очистки флага состояния операции отмены с
проверкой флага} IF
Memo1.Perform(EM_CANUNDO, 0, 0) <> 0 THEN Memo1.Perform(EM_EMPTYUNDOBUFFER,
0, 0); end; ............
procedure TForm1.bUndoClick(Sender: TObject);
begin
procedure TForm1.bUndoClearClick(Sender: TObject);
begin
...предыдущая страница следующая...
оглавление