powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Выделить текст в memo
4 сообщений из 4, страница 1 из 1
Выделить текст в memo
    #39724379
petrovichvanya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Добрый день, есть компонент memo в котором содержится текст, подскажите как сделать, чтобы при нажатие клавиш CTrl + A у меня выделялся весь текст ?
...
Рейтинг: 0 / 0
Выделить текст в memo
    #39724406
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: pascal
1.
2.
3.
4.
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin           
  if (ssCtrl in Shift) and (Key in [65,97]) then TMemo(Sender).SelectAll;
end;
...
Рейтинг: 0 / 0
Выделить текст в memo
    #39724407
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В вебе куча советов по решению этой задачи через перехват события клавиатуры

Погуглите [tmemo ctrl+a]
...
Рейтинг: 0 / 0
Выделить текст в memo
    #39724433
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
petrovichvanyaДобрый день, есть компонент memo в котором содержится текст, подскажите как сделать, чтобы при нажатие клавиш CTrl + A у меня выделялся весь текст ?
Добавить стандартную акцию в всплывающее меню для tmemo: http://docwiki.embarcadero.com/Libraries/Tokyo/en/Vcl.StdActns
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Выделить текст в memo
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]