Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Выделить текст в memo / 4 сообщений из 4, страница 1 из 1
29.10.2018, 11:49
    #39724379
petrovichvanya
petrovichvanya
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделить текст в memo
Добрый день, есть компонент memo в котором содержится текст, подскажите как сделать, чтобы при нажатие клавиш CTrl + A у меня выделялся весь текст ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.10.2018, 12:21
    #39724406
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделить текст в memo
Код: 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
| Ответить | Цитировать | Написать  
29.10.2018, 12:22
    #39724407
Кроик Семён
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделить текст в memo
В вебе куча советов по решению этой задачи через перехват события клавиатуры

Погуглите [tmemo ctrl+a]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.10.2018, 12:48
    #39724433
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделить текст в memo
petrovichvanyaДобрый день, есть компонент memo в котором содержится текст, подскажите как сделать, чтобы при нажатие клавиш CTrl + A у меня выделялся весь текст ?
Добавить стандартную акцию в всплывающее меню для tmemo: http://docwiki.embarcadero.com/Libraries/Tokyo/en/Vcl.StdActns
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Выделить текст в memo / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 553ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2040204]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 205ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 243ms
total:  553ms
x
x
Закрыть


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