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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как в Edit отключить реакцию на ПКМ "вырезать", как в Edit отключить реакцию на ПКМ 
:(
    Опции темы
leha2007
Дата 17.6.2007, 21:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Нужно, чтобы при нажатии правой кнопки мыши на компоненте Edit и выборе из этого меню "вырезать" - ничего не происходило. Как это сделать?
PM MAIL   Вверх
a_n_d_y
Дата 17.6.2007, 21:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



заведи свой буфер обмена..
перед вырезанием засовывай данные туда, а потом заново вставляй (тупо, но просто)

Это сообщение отредактировал(а) a_n_d_y - 17.6.2007, 21:59
PM MAIL ICQ Skype MSN   Вверх
Yanis
Дата 17.6.2007, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111



Код
  TEdit = class(StdCtrls.TEdit)
  private
    procedure Cut(var M: TMessage); message WM_CUT;
  end;

{ TEdit }

procedure TEdit.Cut(var M: TMessage);
begin
  M.Result := 0;
end;


Это сообщение отредактировал(а) Yanis - 17.6.2007, 23:04


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
0LineGate
Дата 17.6.2007, 22:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



как вариант можно сделать своё PopupMenu в котором будет отсутствовать пункт Вылезать иле же ничего не вешать на него но сделать, или же сделать пункт Вырезать неактивным.... вариантов много... дерзай smile
PM MAIL WWW Skype   Вверх
Yanis
Дата 17.6.2007, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111



Цитата(0LineGate @  17.6.2007,  23:30 Найти цитируемый пост)
как вариант можно сделать своё PopupMenu в котором будет отсутствовать пункт Вылезать иле же ничего не вешать на него но сделать, или же сделать пункт Вырезать неактивным.... вариантов много... дерзай

А я вот «правой кнопкой» никогда не «вырезаю». Но «вырезаю» же ;)


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
0LineGate
Дата 17.6.2007, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Yanis, ну и в OnKeyPress повесить блок на Ктрл + Ч... Ну вообще в названии топика сказано 
Цитата

как в Edit отключить реакцию на ПКМ "вырезать"

PM MAIL WWW Skype   Вверх
leha2007
Дата 18.6.2007, 08:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Цитата(Yanis @ 17.6.2007,  22:31)
Цитата

А я вот «правой кнопкой» никогда не «вырезаю». Но «вырезаю» же ;)



Я тоже так никогда не вырезаю, но всех пользователей ведь за руки держать не будешь.
И еще 
Цитата
TEdit = class(StdCtrls.TEdit)
  private
    procedure Cut(var M: TMessage); message WM_CUT;
  end;

{ TEdit }

procedure TEdit.Cut(var M: TMessage);
begin
  M.Result := 0;
end;

Можно ли как то по-другому? Т.е. отловить MouseDown и в нем проверять, если выбрано в контектном меню вырезать, то ничего не делать.  smile
PM MAIL   Вверх
Yanis
Дата 18.6.2007, 10:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111



Цитата(leha2007 @  18.6.2007,  09:30 Найти цитируемый пост)
Можно ли как то по-другому? Т.е. отловить MouseDown и в нем проверять, если выбрано в контектном меню вырезать, то ничего не делать.

А я что привёл? Кликаешь правой кнопкой «вырезать», а реакции никакой.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
MetalFan
Дата 18.6.2007, 10:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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



Цитата(0LineGate @  17.6.2007,  23:03 Найти цитируемый пост)
ну и в OnKeyPress повесить блок на Ктрл + Ч.

А ведь есть еще один хоткей на вырезание) кто помнит, какой?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
leha2007
Дата 18.6.2007, 11:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



спасибо за ответы

Это сообщение отредактировал(а) leha2007 - 18.6.2007, 11:34
PM MAIL   Вверх
Yanis
Дата 18.6.2007, 12:59 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111



Цитата(MetalFan @  18.6.2007,  11:13 Найти цитируемый пост)
А ведь есть еще один хоткей на вырезание) кто помнит, какой? 

Shift+Del smile


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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


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

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


 




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


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

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