Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Горячая клавиша 
:(
    Опции темы
Clasteruga
Дата 15.10.2008, 20:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 24.9.2008

Репутация: нет
Всего: 1



Скажите плиззз как сделать чо бы при нажатии скажем клавиши CTRL+A в RichEdit вставлялся символ аппострофа  smile 
PM MAIL   Вверх
mr.Anderson
Дата 15.10.2008, 21:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128



Clasteruga, есть несколько вариантов.

1. Прописать экшен в TActionList, ему назначить горячую клавишу.
2. Впихать пункт в главное/контекстное меню, повторить для него вариант 1.
3. Перегрузить процедуру AppMsg, в ней обрабатывать нажимаемые клавиши.


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
THandle
Дата 15.10.2008, 21:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372



Если самый простой вариант, то:

1. Кидаем на форму TActionList со вкладки Standart. 
2. Создаем ему новый Action.
3. Ставим ему свойство ShortCut в Ctrl+A
4. Создаем обработчик события OnExecute и пишем в нем нечто на подобии:

Код

procedure TForm1.Action1Execute(Sender: TObject);
begin
  RichEdit1.Text := RichEdit1.Text + #39;
end;

PM   Вверх
Clasteruga
Дата 15.10.2008, 21:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 24.9.2008

Репутация: нет
Всего: 1



3. Ставим ему свойство ShortCut в Ctrl+A

вот этот пункт не понял! обьясните плиззз и ещё #39 это кнопка А???

Добавлено через 3 минуты и 19 секунд
Всё спасибки разобрался Чаник что сказать

Добавлено через 5 минут и 6 секунд
Напишите плизз какой #.. для кнопки U

Добавлено через 6 минут и 40 секунд
Всё спасибки #39 это и есть аппостроф!!! всё спасибки всем за внимание
PM MAIL   Вверх
Clasteruga
Дата 16.10.2008, 16:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 24.9.2008

Репутация: нет
Всего: 1



Есть проблемка. При вставке аппострофа курсор возвращаеться на начальную позицию т.е в начало строки. Как этого избежать?
PM MAIL   Вверх
mr.Anderson
Дата 16.10.2008, 20:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128



Clasteruga, че-т я не понял, что ты сказал... Код приведи.


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
Clasteruga
Дата 16.10.2008, 20:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 24.9.2008

Репутация: нет
Всего: 1



Да код всё тот-же
Код

procedure TForm1.Action1Execute(Sender: TObject);
begin
  RichEdit1.Text := RichEdit1.Text + #39;
end;


Короче при допустим пишем слово Делфи, после его написание нажимает CTRL+P и в слово наше добавляеться опостроф Делфи'
а вот курсор | не остаёться на позиции после аппострофа, а переходит в начало и становить пред буквой Д, и получаеться   |Делфи

| - это я обозначил текстовый курсор
PM MAIL   Вверх
Poseidon
Дата 16.10.2008, 22:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133



Добавь одну строчку:

Код

procedure TForm1.Action1Execute(Sender: TObject);
begin
  RichEdit1.Text := RichEdit1.Text + #39;
  RichEdit1.SelStart:= Length(RichEdit1.Text);
end;



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Clasteruga
Дата 17.10.2008, 07:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 24.9.2008

Репутация: нет
Всего: 1



Спасибо всё работает!
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1066 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.